Скачать или смотреть Harry Casimiro Tutorials in vb6.0

Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub cmdsave_Click()
Call Mycon
Call MyRS

rs.Open "Select * from Account", conn, adOpenDynamic, adLockPessimistic
rs.AddNew
rs!UserName = Text1.Text
rs!Password = Text2.Text
rs.Update

MsgBox "Account is been save", vbInformation

End Sub

Private Sub Text1_DblClick()
Text1.Text = ""
End Sub

Private Sub Text2_DblClick()
Text2.Text = ""
End Sub


'code for the module

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset


Public Sub Mycon()
If conn.State = 1 Then
conn.Close
End If
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1234"
End Sub

Public Sub MyRS()
If rs.State = 1 Then
rs.Close
End If
End Sub