manupulation using ADODB

hello
I am beginner in visual basic 6, i am having problem in adding,saving and deleting records in vb using ms-access data base.

i don't know whether i am right or wrong. i am pasting my codeing below:

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

Private Sub Form_Load()
With con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "D:\studata.mdb" (path to the database)
.Open
End With
rs.Open "select * from records", con, adOpenDynamic, adLockBatchOptimistic
End Sub

Public Sub fnDisplay()

Text1.Text = rs(0)
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)

End Sub

Private Sub Save_Click()
On Error Resume Next
rs.Save
Call fnDisplay
MsgBox "RECORD SAVED"
End Sub

Private Sub Add_Click()
On Error Resume Next
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
rs.AddNew
End Sub

Private Sub Del_Click()
rs.Delete
Call fnDisplay
End Sub

Plz tell me what to do..

All suggestion will be appreciated

this code is known to work, just call it with
AdoConnectSecureDB False

'requires a reference set to
'microsoft activex data objects 2.x library
'
'7/6/2006 - ADO CONNECTION TO A ACCESS DB
'PASS [False] for unsecured db
'PASS [True] for a secured db - requires acccount/password
'
Public Sub AdoConnectSecureDB(ByVal SecureDB As Boolean)
  'SET DB AND SYSTEM PATHS
  Const cMyDBpath = "D:\db2.mdb"
  Const cMySysMDW = "D:\System.mdw"
  
  Dim cn As ADODB.Connection, rs As ADODB.Recordset
  Dim sCon As String
  Dim MyAccount As String
  Dim MyPassword As String
  Dim errCount As Integer
  
  On Error GoTo erh
  
  Select Case SecureDB
    Case Is = False
      MyAccount = "Admin"
      MyPassword = ""
    Case Is = True
      MyAccount = "[ACCOUNT]"
      MyPassword = "[PASSWORD]"
  End Select
  
  'CONNECTION STRING
  sCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "User ID=" & MyAccount & ";Password=" & MyPassword & ";" & _
          "Data Source=" & cMyDBpath & ";" & _
          "Persist Security Info=False"
  'SECURE DB W/ SYSTEM.MDW?
  If SecureDB = True Then sCon = sCon & ";Jet OLEDB:System database=" & cMySysMDW
  
  'CREATE NEW CONNECTION
  Set cn = New ADODB.Connection
  'OPEN CONNECTION WITH CONNECTION STRING
  cn.Open sCon
  'CREATE NEW RECORDSET
  Set rs = New ADODB.Recordset
  'OPEN RECORDSET
  'READ/WRITE
  rs.Open "TABLE1", cn, adOpenDynamic, adLockOptimistic, adCmdTable
  'READ ONLY
  'rs.Open "TABLE1", cn, adOpenStatic, adLockOptimistic, adCmdTable
  
  'TRAVERSE RECORDS
  rs.MoveFirst
  Do While Not rs.EOF
    MsgBox rs!model
    MsgBox rs!FIELD1
    rs.MoveNext
  Loop

xit1:
  'CLOSE
  If rs.State <> adStateClosed Then rs.Close
  If cn.State <> adStateClosed Then cn.Close
xit2:
  'RELEASE RESOURCES
  Set rs = Nothing
  Set cn = Nothing
  Exit Sub

erh:
  MsgBox Err.Description, vbExclamation, Err.Number
  errCount = errCount + 1
  If errCount = 1 Then Resume xit1 Else Resume xit2
End Sub