hola! saludos
necesito ayuda con este programa que hize por que no puedo introducir los datos al archivo .mdb no se que es lo que me esta fallando o me hace falta para que los datos aparescan en la mdb

he aqui mi codigo
de antemano gracias

Dim al As New ADODB.Connection
Private WithEvents rs As ADODB.Recordset

Private Sub atras_Click()
Hide
End Sub

Private Sub Command1_Click()
rs.AddNew
rs("Codigo") = co.Text
rs("Nombre") = no.Text
rs("Fecha") = fe.Text
rs("Numero") = num.Text
rs("Modelo") = mo.Text
rs.Update

End Sub

Private Sub Form_Load()
Set rs = New ADODB.Recordset
al.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data source = H:\ciber\CD.mdb"
rs.Source = "Altas"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "Select * from Altas", al
rs.MoveFirst

End Sub