Visual Basic - Los necesito

Hola que tal!!
hace tiempo programe con VB 4
y ahora que leo lo nuevo de VB 6, estoy hecha un lio y aqui va mi peticion
no se si sea posible que me pusieran o enviaran un ejemplo para dar de alta baja y modificar registros con VB y ADO, con que me ponga el ejhempolo con 2 campos esta perfecto ;) bueno gracais de antemano y nos leemos

Mirate esta pagina, creo que encontraras todo y mas de lo que buscas:

http://guille.costasol.net/bases/ADO/indiceADO.htm

Suerte

la forma mas facil es acerlo mediante Data Eviroment haces la conexion y luego los comandos (Recorsets)

alli van algunos ejemplos
para grabar

Private Sub cmd_grabar_Click()
On Error GoTo malos
DEtropa.rscmd_tabla_persona.Fields("nmpe_c_grado") = DTCgrado.BoundText
DEtropa.rscmd_tabla_persona.Update
MsgBox ("Grabado Ok !!!!!!!!"), vbInformation
cmdnuevo.Enabled = True
'frmtropa.Show (1)
Exit Sub
malos:
MsgBox ("Error en Grabado de Registro Verifique su Información"), vbInformation
txtNMPE_C_LM.SetFocus
Exit Sub
End Sub

Nuevo registro

Private Sub cmd_nuevo_Click()
filtro ' seleccion los datos del codigo en linea
DEtropa.rscmd_moral.AddNew
Frame1.Visible = True
txtnroadm_m.Text = Pnroadmin
TSECUE.Text = Val(tsigue.Text) + 1
End Sub

Public Sub filtro()
Dim sql_informe As String
sql_informe = "select NTIN_C_NROADMIN, NTIN_D_FECINI, NTIN_D_FECFIN, NTIN_C_DESUNI, NTIN_C_DESEMPLEO, NTIN_C_DESGUA from tropa.nmt_informes Where ntin_c_nroadmin ='" + Pnroadmin + "'"
ado_informe.RecordSource = sql_informe
ado_informe.Refresh
End Sub

Suerte, cualquier cosas estamos para ayudarnos