Formulario Adicionar En Vb 6.0

Adición

' La conexión a la base de datos
Dim cn As ADODB.Connection
' El recordset para acceder a los datos
Dim rs As ADODB.Recordset//------------------------------------------------------------
Private Sub cmdadicionar_Click()
'habilita edicion de cuadros de texto
txtcod.Locked = False
txtcod.Locked = False
txtnom.Locked = False
txtdirec.Locked =False
txtfono.Locked = False
txtedad.Locked = False
'limpiar los cuadros de texto
txtcod.Text = ""
txtnom.Text = ""
txtdirec.Text = ""
txtfono.Text = ""txtedad.Text = ""
'habilitar y deshabilitar botones
cmdadicionar.Enabled = False
cmdGuardar.Enabled = True
' Ejecuta el método AddNew para crear un registro
rs.AddNew
' clocar elfoco en el primer cuatro de texto
txtcod.SetFocus

End Sub

//------------------------------------------------------------
Private Sub cmdGuardar_Click()
Dim Resp

Iftxtcod.Text = "" Or txtnom.Text = "" Then
MsgBox "Debe completar los datos", vbExclamation
Exit Sub
End If
Resp = MsgBox("¿Desea guardar el registro?", vbYesNoCancel)
If Resp =vbYes Then
rs.Fields("cod_al") = txtcod.Text
rs.Fields("nom_al") = txtnom.Text
rs.Fields("direc") = txtdirec.Text
rs.Fields("fono") = txtfono.Textrs.Fields("edad") = txtedad.Text
rs.Update 'guardamos el registro
MsgBox " Registro guardado", vbInformation, "Grabar"
Else
If Resp = vbNo Thenrs.CancelUpdate 'Cancelamos la actualización.
' limpiar los cuadros de texto
txtcod.Text = ""
txtnom.Text = ""
txtdirec.Text = ""txtfono.Text = ""
txtedad.Text = ""
Else
Exit Sub
End If
End If
'habilitar y deshabilitar botones
cmdadicionar.Enabled = True
cmdGuardar.Enabled...