Conexion tipo ODBC para Access

[ValentinoMolinari]

Yo no te entendi mucho que digamos amigo..... pero puedo sugerirte una forma muy segura de coneccion a access y muy eficiente.....
Creas un Módula Llamado Inicial o como se te ocurra y colocas dentro el sigiuiente código

Option Explicit
Public TipoMov As Integer
Public gTxtHelp As String
Public Operador As String
Public cn As ADODB.Connection
Public Comando As ADODB.Command
Public StrAux As String
''creo variable para consulta
Public STRSQL As String
''creo variable para update
Public StrUpdate As String
''creo variable para insert
Public strInsert As String
Public Record As ADODB.Recordset
Public Rs As ADODB.Recordset
Public RsAux As ADODB.Recordset
Public FncAux As ADODB.Recordset
'Public fMainForm As MDIForm1
'Private LCID As Long ' LCID del idioma actual
'Global lbl As String
'Public strserver As String
Public ConData As String

Public strcn As String


Public Sub main()

strcn = App.Path & "\fmdig.mdb" 'Nombre de la Base de Datos
On Error GoTo ErrAbr
ConData = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"
Data.ConDigital.Open ConData
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"

Set Comando = New ADODB.Command
Comando.ActiveConnection = cn
'Data.Commands(1).ActiveConnection = ConData
Set FncAux = New ADODB.Recordset ' Solo para funciones
FncAux.ActiveConnection = ConData
ErrAbr:
If Not Err.Number = 0 Then
MsgBox "Ocurrió un error al abrir la base de datos" & Err.Number, vbCritical, "Horror Fatal!!!!!!!"
End
End If
FrmSeguridad.Show 'Formulario Inicial de mi sistema
End Sub


y en las propiedades del proyecto configuras que levante del sub main y de ahí llamas a el formulario principal
espero te sirva saludos