[حريف برمجة]

اول شي اضف مكتبة الآدو

من Project > References

Microsoft Actives Data Objects 2.8 Library

وهذي الأكواد

كود :

في الجنرال في الأعلى ضع الكود التالي

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

ضع الكود التالي في الكوماند

Private Sub Command1_Click()
If rs.State = 1 Then rs.Close
rs.Open "select * from T", con, 1, 2

Text1 = rs.Fields("Name")
Text2 = rs.Fields("Age")

rs.Close
End Sub

ضع الكود التالي في الفورم لود

Private Sub Form_Load()
If con.State = 1 Then con.Close
con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\dbo.accdb"

End Sub