' Include following in Declarations section of module.'
Dim appAccess As Access.Application

Sub NewAccessDatabase()
    Dim dbs As Object, tdf As Object, fld As Variant
    Dim strDB As String
    Const DB_Text As Long =  10 
    Const FldLen As Integer =  40 

    ' Initialize string to database path.'
    strDB =  "C:\My Documents\Newdb.mdb" 
    ' Create new instance of Microsoft Access.'
    Set appAccess = _
        CreateObject( "Access.Application.9 ")
    ' Open database in Microsoft Access window.'
    appAccess.NewCurrentDatabase strDB
'Здесь действия с БД2'
    appAceess.Quit
    Set appAccess = Nothing
End Sub