[king2512010]

جرب الكود ده

PHP كود :

Private Sub Form_Load()
  Dim DB_Path As String
  DB_Path = App.Path & "\ qser.mdb"
  Me.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Path & ";Persist Security Info=False"
  Me.Adodc1.Refresh
  Me.Adodc1.CommandType = adCmdUnknown
  Me.Adodc1.RecordSource = "select * from Last Name "
  Me.Adodc1.Refresh
End Sub