muchas gracias seguire tu consejo

muchas gracias a ustedes... me funciona como yo queria... espero no haberles molestado..
saludos manuel venero

hola señores... les comento que casi estoy concluyendo con mi trabajo... pero quisiera personalizar el datagrid (dar color a las filas, que el tamaño de la columna sea mas grande para que se visualice el contenido de las filas..) alguien podria mostrar una pagina donde expliquen como hacerlo... encuentro varios pero ninguno en visual basic 6.0... estare muy agradecido...
saludos

hola amigos una vez mas molestandolos... es que deseo saber como puedo hacer que las columnas de un datagrid se agranden automaticamente deacuerdo al mayor tamaño del registro que lo contiene (es que no quiero estar arrastrando con el mouse el encabezado para poder leer )

necesito ponerlo aqui:
private sub form_load ()

end sub
saludos...

estoy muy agradecido por su ayuda... la verdad es que no me fije bien en el otro post que puse. disculpando la insistencia..

hola señores, necesito su ayuda ,. mi caso es que tengo un procedimiento que esta en un modulo.. lo pusse ahi por q necesito llamar a ese procedimiento en un momento indicado...el procedimiento es:
como hago para llamar a este procedimiento de un cmdaceptar que esta en frm1..nesecito llamar al procedimiento enfocar1.. gracias por su ayuda

Private Sub Enfocar1()
Set DataGrid1.DataSource = Nothing \'esto lo desconecta del origen de datos
    With DataZaga.rsCmdclientes1
        If .State = adStateOpen Then
        .Close
        End If
        If .State = 0 Then
        .Open
        End If
    End With
Set DataGrid1.DataSource = [DataZaga] \'El nombre del origen de datos cuando es un dataenvironmet va entre corchetes
Call Enfocar2
End Sub
Private Sub Enfocar2()
X = DataZaga.rsCmdClientes.Fields(\"cod_cliente\")
        DataZaga.rsCmdclientes1.MoveFirst
        DataZaga.rsCmdclientes1.Find \"cod_cliente=\'\" & X & \"\'\"
        If Not (DataZaga.rsCmdclientes1.BOF Or DataZaga.rsCmdclientes1.EOF) Then
End If
\'X = DataZaga.rsCmdClientes.Fields(\"cod_cliente\").Value
X = DataZaga.rsCmdclientes1!cod_cliente
End Sub

hola a todos , mi pregunta es:
como puedo llamar a un procedimiento que esta en un modulo
desde un cmdaceptar que esta en un frm1

esto es lo que tengo en mi modulo

Private Sub Form_Paint()
FORM_ACTIVATE
End Sub

Private Sub FORM_ACTIVATE()
Set DataGrid1.DataSource = Nothing \'esto lo desconecta del origen de datos
    With DataZaga.rsCmdclientes1 \'Acá había un error en el nombre de recordset
        If .State = adStateOpen Then
        .Close
        End If
        If .State = 0 Then
        .Open
        End If
    End With
Set DataGrid1.DataSource = [DataZaga] \'El nombre del origen de datos cuando es un dataenvironmet va entre corchetes
Call ENFOCAR
End Sub

hola señores, nesecito una ayuda, el caso es que necesito saber en que bookmark de rscmdclientes esta ubicado la variable x

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 3:
        DataZaga.rsCmdClientes.AddNew
        FrmProveedorCliente.Show vbModal
    Case 4:
        X = DataZaga.rsCmdclientes1.Fields( \"cod_cliente \") \'aqui la variable toma este valor \"20476510695\" por que yo ubique el puntero en ese registro de datagrid 
\' que codigo hago aqui para que busque la variable X EN rsCmdclientes y que luego saber cual es su bookmark ????
       
         DataZaga.rsCmdClientes.Bookmark = X
         FrmProveedorCliente.Show vbModal
End Select
End Sub


gracias y saludos

hey amigo muchas gracias `por tu respuesta... pero me equivoque no es al hacer click en el datagrid es dandole click en case 4 de un toobar.. yo lo estoy haciendo haci

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 3:
        DataZaga.rsCmdClientes.AddNew
        FrmProveedorCliente.Show vbModal
    Case 4:
        X = DataZaga.rsCmdclientes1.Fields(\"cod_cliente\") \'aqui la variable toma este valor \"20476510695\" por que yo ubique el puntero en ese registro de datagrid 
\'  que codigo hago aqui para que busque la variable X EN rsCmdclientes y que luego me diga en que bookmark esta????
       
         DataZaga.rsCmdClientes.Bookmark = X
         FrmProveedorCliente.Show vbModal
End Select
End Sub

que codigo debo poner para cuando enfoque o seleccione algun registro de un datagrid1.. me muestre el index