Public Sub OpenConnection(dbFilename As String)
 
    On Error GoTo CNErrorHandler
        Set CnADO = New ADODB.Connection
 
        With CnADO
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Data Source") = dbFilename
            .ConnectionString = "Data Source=" + dbFilename
            .CursorLocation = adUseClient
            .Mode = adModeShareDenyNone
            .Open
        End With
    Exit Sub
 
CNErrorHandler:
    Exit Sub
End Sub

Dim RsADO as ADODB.Recordset
 
Set RsADO = New ADODB.Recordset
       SQL = "...."
       RsADO.Open SQL, CnADO

   SQL="SELECT Language.language, Language.icon From Language"