Dim objAccess As Access.Application
Dim objAccessProject As Access.CurrentProject
Dim CurrentSQLServerName as string
Dim strNameDatabase as string

    CurrentSQLServerName = "Namecomuter\Namecomputer"  ' Example 
    strNameDatabase = "Base"  ' Example 

    Set objAccess = New Access.Application
    Call objAccess.OpenAccessProject(strAccessADE, True)
    Set objAccessProject = objAccess.CurrentProject
    sScript = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
        "Integrated Security=SSPI;Initial Catalog=" & strNameDatabase & _
        ";Data Source=" & CurrentSQLServerName & ";Data Provider=SQLOLEDB.1"
    objAccessProject.CloseConnection
    objAccessProject.OpenConnection (sScript)
    objAccess.Quit