Visual Basic Database Connectivity Using Coding Method -ADODB :

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

Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Data Connection\demo.mdb;Persist Security Info=False"
rs.Open "select * from T1", db, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Command1_Click()
rs.AddNew
rs.Fields(0).Value = Text1.Text
rs.Fields(1).Value = Text2.Text
rs.Update
End Sub

Private Sub Command2_Click()
rs.Delete
MsgBox ("Deleted")
rs.MoveNext
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

Private Sub Command3_Click()
rs.MoveFirst
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

Private Sub Command4_Click()
If rs.BOF = False Then
Text1.Text = rs(0)
Text2.Text = rs(1)
rs.MovePrevious
Else
rs.MoveNext
MsgBox ("this is first record")
End If
End Sub

Private Sub Command5_Click()
If rs.EOF = False Then
Text1.Text = rs(0)
Text2.Text = rs(1)
rs.MoveNext
Else
rs.MovePrevious
MsgBox ("this is last record")
End If

End Sub

Private Sub Command6_Click()
rs.MoveLast
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

Private Sub Command7_Click()
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Data Connection\demo.mdb;Persist Security Info=False"
rs.Open "select * from T1", db, adOpenKeyset, adLockOptimistic
End Sub

Private Sub Command1_Click()
rs.AddNew
rs.Fields(0).Value = Text1.Text
rs.Fields(1).Value = Text2.Text
rs.Update
End Sub

Private Sub Command2_Click()
rs.Delete
MsgBox ("Deleted")
rs.MoveNext
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

Private Sub Command3_Click()
rs.MoveFirst
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

Private Sub Command4_Click()
If rs.BOF = False Then
Text1.Text = rs(0)
Text2.Text = rs(1)
rs.MovePrevious
Else
rs.MoveNext
MsgBox ("this is first record")
End If
End Sub

Private Sub Command5_Click()
If rs.EOF = False Then
Text1.Text = rs(0)
Text2.Text = rs(1)
rs.MoveNext
Else
rs.MovePrevious
MsgBox ("this is last record")
End If

End Sub

Private Sub Command6_Click()
rs.MoveLast
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

Private Sub Command7_Click()
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub

свернуть