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

Jjajaj que boludo man, si ya te lo habian respondido! En vez de poner Private pone Public y listo, dsp pones el nombre de la funcion desde cualkier lado y la llama!
Me acabo de dar cuenta de que cesaron los atakes DDOS, que bueno 


Sancho.Mazorka