dbgrid

عزيزى اليك الحب ان شاء الله

Dim CNN As New ADODB.Connection

يوضع فى general delcaleration

Private Sub Form_Load()

CNN.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\most.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=052364232"

Adodc1.ConnectionString = CNN

Adodc1.RecordSource = "SELECT NAME,WORK,ID,ID1,NAME1 FROM Q1"

Set DataGrid1.DataSource = Adodc1

End Sub

(1) مع ملاحظة وضع adodc1على الفورم بدون الدخول فى خصائصة

(2) تغير قاعدة البيانات إلى القاعدة التى تناسبك

(3) لاحظ أن قاعدة البيانات فى المثال السابق لها كلمة سر