Talves esto te ayude un comanbuton para agragar un rejistro, el codigo es el siguiente:

Adodc1.Recordset.AddNew

para modificar un registro es

Adodc1.Recordset.Update

para eliminar un rejistro es

Adodc1.Recordset.Delete

espero y te aya ayudado =)

Su pongamos q tenemos una base de datos llamada clientes con los sigtes campos: codcliente-nombre-apellido-telefono.

la busqueda se realizaria de a sigtes forma:

realiza la busquedad
rs.find("codcliente")='" & txtbusqueda.text "'" & ,,,1

si la busquedad tiene exito muestra los datos

if rs.BOF=false and rs.EOF then

tnombre.text=rs.fields("nombre")
tapellido.text=rs.fields("apellido")
ttelefono.text=rs.fields("telefono")
end if

espero q te ayude es te codigo.

Hola que tal mi nombre es Mariuxi Jimbo, y tengo un codigo que de pronto pueda ayudarte, lo primero que tienes que hacer es enlazar los text donde quieres q se visualice la información con un adodc1, posteriormente crea un boton y ahi pones el siguiente codigo, este codigo te realizara una búsqueda y si encuentra en base de datos los datos los viisualizara.



On Error GoTo BuscarErr
Dim auxced As String
Dim auxcon As String
auxced = InputBox("Ingresar Cedula a buscar: ", "Busqueda", "0")
auxcon = "num_ced like '" & Trim(auxced) & "'"
Adodc1.Recordset.Find auxcon
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Or (Label2 <> auxced) Then
MsgBox "No existe el dato buscado"
End If
Exit Sub
BuscarErr:
MsgBox Err.Description

Hola:


Gracias por la ayuda brindada, la verdad que me fue de muchísima ayuda!!