رسالة خطأ في ربط Datagrid مع Recordset

اخواني ماهو سبب ظهور هذه الرسالة :

حيث أريد ربط الاداة مع جدول وهذا الكود :

 </P> 
Private Sub Form_Load()
Dbase.Provider = "microsoft.jet.OLEDB.4.0"
Dbase.Open App.Path + "\data.mdb"</P> 
Rdset.Open "[P1]", Dbase, adOpenDynamic, adLockOptimistic</P> 
Dbase.CursorLocation = adUseClient
Set DataGrid1.DataSource = Rdset
End Sub
</P>

وهذا كود العام:

Dim Dbase As New ADODB.Connection
Dim Rdset As New ADODB.Recordset