Cita:
Iniciado por natalyro 
Ahora tengo el siguiente error pero en el Consultar:
Me puedes ayudar?
object doesn´t support named arguments
mira mi codigo:
obviamente tiene la misma funcion de cargar.
Private Sub Cmd_Aceptar1_Click() ' este es el de consultar
......
Connect.RecordSource = Cadena_SQL ' AQUI ME SALE EL ERROR
'Rs2.Refresh
Fra_Funciones.Visible = True
Fra_Consultar.Visible = False
End Sub
Por el código anterior deduzco que
Connect es una conexión a la base de datos y el objeto Connection no tiene la propiedad RecordSource (que es de un control tipo Data).
Debes aplicar la consulta en la apertura de un recordset:
rscordset.Open Cadena_SQL, conexion 