ayuda con addnew

[chovisweb]

me pueden decir por que no guarda ningun registro, y no me marca ningun error, segun todo lo esta haciendo bien cual creen que sea el problema, y si tienen otra forma de dar de alta un registro haganmela saber. trabajo con ADO y Access 2000 y visual basic 6
mi codigo es el sig:
Private Sub cmdguardar_Click()
rst.Open "select * from altas", cnn, adOpenDynamic, adLockBatchOptimistic
rst.AddNew
rst!nosuscripcion = txtsuscripcion.Text
rst!tipo = cmbtipo.Text
rst!nombre = txtnombre.Text
rst!domicilio = txtdomicilio.Text
rst!ciudad = txtciudad.Text
rst!ocupacion = txtocupacion.Text
rst!telefono = txttelefono.Text
rst!domiciliooficina = cmbdomoficina.Text
rst!cidadoficina = cmbciudadoficina.Text
rst!telefonooficina = cmbteloficina.Text
rst!fechanacimiento = txtfechanac.Text
rst!email = cmbemail.Text
rst!familiar1 = cmbfamiliar1.Text
rst!fechanac1 = cmbfecha1.Text
rst!familiar2 = cmbfamiliar2.Text
rst!fechanac2 = cmbfecha2.Text
rst!familiar3 = cmbfamiliar3.Text
rst!fechanac3 = cmbfecha3.Text
rst!familiar4 = cmbfamiliar4.Text
rst!fechanac4 = cmbfecha4.Text
rst!familiar5 = cmbfamiliar5.Text
rst!fechanac5 = cmbfecha5.Text
rst!familiar6 = cmbfamiliar6.Text
rst!fechanac6 = cmbfecha6.Text
rst!fechasus = txtfechasusc.Text
rst.Update
MsgBox "El Socio se Registro Correctamente", vbInformation
End Sub