ما هو الخطأ الذي حصل في هذا البرنامج ؟

[kslawy]

السلام عليكم ورحمة الله

اخواني الكرام :

لدي برنامج صغير بالفيجوال بيزك وقد صممته عن طريق دروس وجدته في الانترنت
بنفس طريقة الدرس ولكن عندما أحاول تشغيل الفورم تظهر رسالة خطأ :
الآن إليكم الأكواد التي بالبرنامج لتعرفوا ما هو الخطأ :

الأكواد في الموديل Module1 :

Public DB As New ADODB.Connection
Public rs As New ADODB.Connection
Public rss As New ADODB.Connection
Public SQLs As String
---------------------------
Sub PoolConnection()
If DB.State = adStateOpen Then DB.Close
DB.Provider = "Microsoft.JET.OLEDB.4.0;"
DB.Open App.Path & "\data.mdb"
End Sub


الكود في حدث لود للفورم Load Form :

Private Sub Form_Load()
PoolConnection
SQLs = "Select * From emp"
If rs.State = adStateOpen Then rs.Close
rs.Open SQLs, DB, adOpenKeyset, adLockPessimistic
End Sub

وعندما أنفذ البرنامج تظهر رسالة خطأ مفادها الآتي :

Run-time error '3001':
Arguments are of th wrong type, are out of acceptable range, or are
in conflict with one anther.

وعند الضغط علي زر Debug الموجود برسالة الخطأ يظهر الكود بهذا الشكل :

rs.Open SQLs, DB, adOpenKeyset, adLockPessimistic

حيث يظهر الكود أعلاه بخلفية صفراء

هذا كل ما أردت توضيحه والباقي علي الله وعليكم .

[@...Khalefa]

الخطأ في جمله
Public rs As New ADODB.Connection
Public rss As New ADODB.Connection

التصحيح
Public Rs As New ADODB.Recordset
Public Rss As New ADODB.Recordset