[hannileo]

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

اخوتي الكرام 

عندي برنامج احاول تغيير طريقة اتصال قاعدة البيانات فيه لاستخدم طريقة SQL 

ولكن تظهر عندي رسالة Error 91

كما بالصورة 

كود الاتصال:

كود :

'Option Explicit
Public CN As New ADODB.Connection
Public RS As ADODB.Recordset
Public RS2 As ADODB.Recordset
Public RS3 As ADODB.Recordset
Public RS4 As ADODB.Recordset
Public sql As String
Dim dbpath As String

Public Sub Connected()
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset


With RS
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
End With

dbpath = App.path & "\base\Datacar.mdb"

CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbpath & " ;Persist Security Info=False"


End Sub

هل يوجد خطأ بالاكواد ام هناك خطأ بطريقة الاتصال
وشكرا لكم