Koneksi ADODB vb.net dengan Ms Acces I

String koneksi :

Imports System.Data.OleDb
Module Module1
Public Con As New ADODB.Connection
Public Sub Connection()
Con = New ADODB.Connection
Con.Open("Provider = MICROSOFT.JET.OLEDB.4.0;data Source=DataBase.MDB ")
End Sub
End Module

-------------------------------------------
dim RsSave as adodb.recordset
dim RsSearch as adodb.recordset
-------------------------------------------------
Save dan update record :


Private Sub SaveRecord()
RsSave.Fields("identitas").Value = txtserial.Text
RsSave.Fields("Nama").Value = txtname.Text
RsSave.Fields("UserID").Value = txtuser.Text
RsSave.Fields("Password").Value = txtpass.Text
RsSave.Fields("Label").Value = cmbstatus.Text
RsSave.Fields("tgl").Value = txtdate.Text
End Sub

-------------------------------------------------
Button save_click :

RsSave = New ADODB.Recordset
RsSave.Open("select * from Logon", Con, 1, 2)
RsSave.AddNew()
Call SaveRecord()
RsSave.Update()
MsgBox("Sukses menambahkan record")

------------------------------------------------
Button Edit_click :

RsSave = New ADODB.Recordset
ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
RsSave.Open("select * from Logon where SerialNo=" & (txtid.Text), Con, 1, 2)
Call SaveRecord()
RsSave.Update()
MsgBox("Record update successfull")

-----------------------------------------------
Button Delete_ click :

Con.Execute("delete from Logon where SerialNo=" & Trim(txtid.Text) & "")
txtserial.Text = ""
txtname.Text = ""
txtuser.Text = ""
txtpass.Text = ""
cmbstatus.Text = ""
txtdate.Text = ""
RsSearch.MoveNext()
Call DisplayRecord()

-----------------------------------------------
Prosedur tampil data :

Sub DisplayRecord()

txtid.Text = RsSearch.Fields("identitas").Value
txtnama.Text = RsSearch.Fields("nama").Value
txtuser.Text = RsSearch.Fields("user").Value
txtpassword.Text = RsSearch.Fields("Password").Value
cmbposisi.Text = RsSearch.Fields("Label").Value
txttgl.Text = RsSearch.Fields("tgl").Value

End Sub

------------------------------------------------------
Control Navigasi :

Last :

RsSearch = New ADODB.Recordset
RsSearch.Open("select * from Logon", Con, 1, 2)
RsSearch.MoveLast()
Call DisplayRecord()

Next :

RsSearch.MoveNext()
Call DisplayRecord()

Previous :

RsSearch.MovePrevious()
Call DisplayRecord()