Dim ACE_DB As New ADODB.Connection    '生成ADO数据连接对象
    Dim ACE_Rs As New ADODB.Recordset     '数据集对象
    Dim ACE_Requete As String             'SQL语句

    ConADODB_ACE = "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source="
    ACE_CONNECTION_X = ConADODB_ACE & ACE_DB_DATA_SOURCE


    ACE_DB.Open ACE_CONNECTION_X          '打开数据库
    
    Dim x As Long
        ACE_Requete = "select * from S_SQL_Version"
        Set ACE_Rs = ACE_DB.Execute(ACE_Requete)
            
ace_rs.close
ace_db.close

程序是连接 ACCESS 2007的 ACEDB文件.
ACE_DB_DATA_SOURCE 是数据源.也就是你ACCESS文件路径.
ACE_CONNECTION_X   是连接字串.