Fai in questo modo:
In un Modulo bas Scrivi:
codice:
Public Sub DataConnessione2()
 
 ' Stringa di connessione senza password:
    'DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyDataBase.mdb;Persist Security Info=False;"
    
    DataConnessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MyDataBase.mdb;Jet OLEDB:Database Password=MyPS;"
Nello stesso modulo in Generale - Dichiarazioni, dichiara una variabile pubblica:
codice:
Public DataConnessione As String
Poi per fare una select:
codice:
Public Sub SalvaDBAnagPr()
    
    Dim Ogg1 As New ADODB.Command
    Dim Cns1 As New ADODB.Connection
    Dim RSTctr As New ADODB.Recordset

    'Esegue la connessione con il DataBase Tbl...:
        With Cns1
            .ConnectionString = DataConnessione
            .CursorLocation = adUseClient   'tipo di cursore
            .Mode = adModeShareDenyNone     'nessuna limitazione
            .CommandTimeout = 15
            .Open
        End With
    
    
        RSTctr.Source = "SELECT Nome, Cognome, NomeFile FROM TblAnagrafica WHERE Nome='" & FrmAnag.TxtPr1.Text & "' And Cognome='" & FrmAnag.TxtPr2.Text & "' And  NomeFile= '" & NomeNF & "'"
RSTctr.Open , Cns1
... ... 
' Chiude la connessione:
        Cns1.Close
        Set Cns1 = Nothing
'Chiude e cancella il recordSet:
        Set RSTctr = Nothing
        RSTctr.Close

End Sub
Per fare un Insert:
codice:
Public Sub SalvaSintesiDB()
    On Error Resume Next

    'Inserimento dei dati nel DB:
    Dim OggS As New ADODB.Command
    Dim ConS As New ADODB.Connection
 
 'Esegue la connessione con il DataBase:
        With ConS
            .ConnectionString = DataConnessione
            .CursorLocation = adUseClient   'tipo di cursore
            .Mode = adModeShareDenyNone     'nessuna limitazione
            .CommandTimeout = 15
            .Open
       End With
       
        OggS.ActiveConnection = ConS
        OggS.CommandType = adCmdText

' Solo se usi Tbl temporanee
'Prima di salvare Elimina i vecchi records dalla tabella:
        'OggS.CommandText = "Delete * From TblSin"
        'OggS.Execute

        OggS.CommandText = "insert into TblSint(VoceN, Sint, UnitMis, Qta, PrUn, PrTot, PrProg)" _
        & "values ('" & Ctr(FrmCo.Txt15(0).Text) & "', '" & Replace(strSint0, "'", "''") & "',  '" & (FrmCo.Txt10(0).Text) & "',  '" & Ctr(FrmCo.Txt11(0).Text) & "', '" & Ctr(FrmCo.Txt12(0).Text) & "', '" & Ctr(FrmCo.Txt13(0).Text) & "', '" & Ctr(FrmC.Txt14(0).Text) & "');"
        OggS.Execute
... ...
'Chiude la connessione - TblSint:
        ConS.Close
        Set ConS = Nothing
End Sub
Spero che l'esempio sia chiaro.