[Dr.Sherif Alazizi]

Friend Sub cn_state()
If cn.State = ConnectionState.Open Then
cn.Close()
End If
End Sub


وحذفت dr.close
ونفس المشكله كما هي
والكود المستخدم ظاهر في الصوره في الرد السابق

حاولت كثيرا والله وبحثت عن حلول كثيره ولم اجد حل