por que cada que doy de alta un nuevo registro me elimina el anterior reemplazando los campos con el nuevo registro, estoy trabajando con ADO y Access 2000 y mi codigo es el siguiente:
Dim sBase As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Private Sub cmdguardaralta_Click()
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 = txtdomoficina.Text
rst!cidadoficina = txtciudadofi.Text
rst!telefonooficina = txtteloficina.Text
rst!fechanacimiento = txtfechanac.Text
rst!email = txtemail.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.AddNew
MsgBox "El Socio se Almaceno correctamente", vbInformation
End Sub
Private Sub cmdsaliralta_Click()
Unload Me
End Sub
Private Sub Form_Load()
sBase = App.Path & "\tenixtac.mdb"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM altas", cnn, adOpenDynamic, adLockOptimistic
rst.MoveLast
txtsuscripcion.Text = rst!nosuscripcion + 1
End Sub
