‘Sample for Access Connection

Public cn As ADODB.Connection

Private Sub cmdADD_Click()
cn.Execute (“insert into tblStd (ID,NAme) values(‘” & txtID.Text & “‘, ‘” & txtNAME.Text & “‘) “)
MsgBox “SAVED”
End Sub

Private Sub cmdCommand1_Click()
cn.Execute (“Delete from tblStd where ID='” & txtID.Text & “‘”)
MsgBox “DELETED”
End Sub

Private Sub cmdEDIT_Click()
cn.Execute (“Update tblStd Set Name='” & txtNAME.Text & “‘ where ID='” & txtID.Text & “‘”)
MsgBox “UPDATED”
End Sub

Private Sub cmdVIEW_Click()
Dim RS As New Recordset
Set RS = New ADODB.Recordset
Set RS = cn.Execute(“Select * from tblStd where ID='” & txtID.Text & “‘”)
Lst.Clear
While Not RS.EOF
Lst.AddItem RS!ID & vbTab & RS!Name

RS.MoveNext
Wend
End Sub

Private Sub cmdVIEWALL_Click()
Dim RS As New Recordset
Set RS = New ADODB.Recordset
Set RS = cn.Execute(“Select * from tblStd”)
Lst.Clear
While Not RS.EOF
Lst.AddItem RS!ID & vbTab & RS!Name

RS.MoveNext
Wend
End Sub

Private Sub Form_Load()
Call AccCon
End Sub

Public Sub AccCon()
Set cn = New ADODB.Connection
With cn
.Provider = “Microsoft.Jet.OLEDB.4.0”
.ConnectionString = “Data Source=” & App.Path & “\db1.mdb” & “;Jet OLEDB:Database Password=;”
.Open
End With
End Sub