VB6 red write DB using Microsoft DAO 3.6 Object Library

' -----------------------------read db Private Sub Form_Load() 'MsgBox App.Path & "\wgscd.mdb"Dim tblCountry As Recordset Dim dbSys As Database Dim s As String Set dbSys = OpenDatabase(App.Path + "\wgscd.mdb", False) Set tblCountry = dbSys.OpenRecordset("Students")' OR Use like : dbSys.OpenRecordset("select * from Students") With tblCountry .MoveFirst Do While Not .EOF s = s & !sid & ";"& !Name & "score:"& .Fields("score") 'note:"!sid"is present as .Fields("sid") .MoveNext Loop

End With
MsgBox s

End Sub
'--------------write db----------------------------- Private Sub Command1_Click()
'MsgBox App.Path & "\wgscd.mdb"Dim tblCountry As Recordset Dim dbSys As Database Dim s As String Set dbSys = OpenDatabase(App.Path + "\wgscd.mdb", False) Set tblCountry = dbSys.OpenRecordset("Students") With tblCountry .AddNew !sid = 5 + rnd(500) !Name = "bb"& Now .Fields("score") = rnd(100) .Update .MoveFirst End With

 MsgBox tblCountry.RecordCount

End Sub
refer link: Database.OpenRecordset Method (DAO) link:https://msdn.microsoft.com/en-us/library/office/ff820966.aspx