Hola que tal.
bien mi problema es el siguiente, tengo una base de datos el formato access 97, uso los comandos de ado para su uso pero el miserable no me guarda los datos nuevos aqui les dejo el code para que me diga nek esta mal
Public BD As New ADODB.Connection
Public Rs As New ADODB.Recordset
strconect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\dataF.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD="
BD.Open strconect
Rs.Open "select * from Contact", BD, adOpenKeyset, adLockBatchOptimistic
If Not Rs.EOF Then
Rs.MoveLast
cuantos = Rs.RecordCount
Rs.MoveFirst
For i = 1 To cuantos
Rs.AddNew
Rs!Nom = .txtNom.Text & " " & .txtApl.Text
Rs!Tel = .txtNum.Text
Rs!movil = .txtMov.Text
Rs!DirPic = .txtImg.Text
Rs.Update
Rs.MoveNext
valNew = False
Next i
End If
normalmente esto esta bien, aunke yo usaba otros tipos de comandos mas complicados y mas largos para guardar datos. soy algo novato con esto del Ado. hey gracias por la colaboracion