Visual Basic para Aplicaciones - Conexion base de datos

Alguien podria solucionarme algunas dudas .... ?

Estoy utilizando los siguientes modulos para abrir una conexion y un recordset y conectarme con access

Public Sub AbrirConeccion(XConeccion, Xdbconeccion, Xdbpath)
Set XConeccion = New ADODB.Connection
XConeccion.ConnectionString = "provider=" & Xdbconeccion & ";data source=" & Xdbpath & ";persist security info=false"
XConeccion.Open
End Sub

* Para abrir un recordset y usar metodos (addnew, update, etc....)

Public Sub AbrirRecordsetTabla(XTabla, XStringTabla, XConeccion)
Set XTabla = New ADODB.Recordset
XTabla.CursorType = adOpenKeyset
XTabla.LockType = adLockOptimistic
XTabla.Open XStringTabla, XConeccion, , , adCmdTable
End Sub

* Para abrir un recordset y utilizar instrucciones sql .-

Public Sub AbrirRecordsetSQL(XTabla, xsql, XConeccion)
Set XTabla = New ADODB.Recordset
XTabla.Open xsql, XConeccion, _
adOpenUnspecified, adLockUnspecified, _
adCmdUnspecified
XConeccion.Execute xsql, , adExecuteNoRecords
End Sub

¿Alguien podria decirme que codigo deberia agregar para controlar cuando el acceso es en red?

¿ Esa seria una forma correcta para conectarse y ejecutar instrucciones sql? ¿Como haria si quiero ejecutar varias instrucciones sql para no tener que abrir el recordset por cada una?

Desde ya gracias por adelantado .-

Adriana.

Hola que tal, mira yo hice lo mismo que tu pero sin tanto lio, no kiere decir que lo que tu hiciste este mal, es otra manera de hacerlo sin tantas vueltas. Espero que esto te ayude

* En el entorno de Visual Basic, agregue una referencia ( Menu Proyecto
->Referencias), busca una opcion que sea "Microsoft DAO 3.5 Object Library".

* En el formulario que tengas que hacer la conexion declara estas variables

' Variable para la base de datos
Public BD As DAO.Database

' Variable para el recordset
Public AdoOSLM As DAO.Recordset

* Y ahora si has la conexion con la base de datos de Access, en este caso la
base de datos esta en donde se esta ejecutando la aplicacion, pero le puedes
poner una direccion directa.

' Se inicializa la Base de Datos
Set BD = OpenDatabase(App.Path & "\bd2.mdb")
ó
Set BD = OpenDatabase("C:\bd2.mdb")

' Y para que jale la BD de la red es asi, yo lo hice y me quedo ...
Set BD = OpenDatabase("\\CarpetaCompartida\bd2.mdb")

' Se inicializa el Recordset
Set AdoOSLM = BD.OpenRecordset("Select * From OSLM")

y para ejecutar varias instrucciones de sql, simplemente, cierra el recordset y vuelvelo a abrir pero con la nueva instruccion

AdoOSLM.Close
Set AdoOSLM = BD.OpenRecordset("Select NoEconomico, FechaInicio From OSLM")

No soy un experto en Visual Basic, pero si necesitas mas informacion u otras cosas no dudes en enviarme un correo, espero que esto te ayude, Bye ...