Hola a todos, tengo la siguiente consulta, estoy realizando una aplicacion con access 2000 y vbasic 6.0, quisiera saber como ejecutar consultas diseñadas en access atraves de visual basic 6.0, esto lo quiero realizaar con el fin de evitar de colocar instrucciones sql dentro del codigo de visual, espero su gentil ayuda.

' Usando DAO ? ...
Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim oQuery As DAO.Querydef

' Si la MDB tiene password ...
Set oDB = DAO.OpenDatabase("BaseDatos.mdb", False, False, ";PWD=password")

' Si la MDB no tiene password

Set oDB = DAO.OpenDatabase("BaseDatos.mdb", False, False)

Set oQuery = DAO.QueryDefs("Nombre del Query")

' Si la consulta tiene parametros establecidos ... (tal vez fechas, nums de cliente, empleados, etc ....) ...
oQuery.Parameters("Parametro 1") = xParam1
oQuery.Parameters("Parametro 2") = xParam2
'...


' Si la consulta es para abrir un recordset y procesar este ultimo ...
Set oRS = oQuery.OpenRecordset( tipo, opciones, lockedits ) ' las que apliquen, checa la ayuda o el MSDN

If Not oRS.BOF Then oRS.MoveFirst

Do While Not oRS.EOF
' lo que aplique ...
Loop

oRS.Close
oQuery.Close
oDB.Close

Set oRS = Nothing
Set oQuery = Nothing
Set oDB = Nothing
Exit Sub


' Si la consulta es para ejecutar una accion (DELETE, UPDATE, INSERT, etc) y por tanto no retornara un recordset ...

oQuery.Execute options ' las que apliquen, checa la ayuda o MSDN



oQuery.Close
oDB.Close

Set oQuery = Nothing
Set oDB = Nothing
Exit Sub

'....