ayuda con addnew

[chovisweb]

Hola amigos listeros, alguno me puede ayudar con esto, tengo la base de datos abierta para dar de alta un nuevo registro. mi codigo es el siguiente:

Private Sub cmdguardar_Click()
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
rst.Close
End sub

al correrlo segun da de alta un registro correctamente, pero cuando reviso la base de datos no ha dado de alta ningun registro...
alguno sabe por que?????