If Nz(bNT,  0 ) = False Then
    ' SQL-авторизация

    strConn = "Provider=MSDataShape.1" & _
                ";Persist Security Info=False" & _
                ";Data Source=" & srv & _
                ";Initial Catalog=" & db_name & _
                ";Network Library=DBMSSOCN" & _
                ";Connection Timeout=150" & _
                ";General Timeout=300" & _
                ";Data Provider=SQLOLEDB.1"
   
        If IsNull(varPass) Then
            sPass = ""
        Else
            sPass = CStr(varPass)
        End If
    
        CurrentProject.OpenConnection strConn, sLogin, sPass
    Else
        'NT авторизация
        strConn =  "Provider=SQLOLEDB.1 ;" & _
                     "Persist Security Info=False;"  & _
                     "Data Source="  & srv & _
                     ";Integrated Security=SSPI"  & _
                     ";Initial Catalog="  & db_name & _
                     ";Network Library=DBMSSOCN"  & _
                     ";Connection Timeout=150 ;General Timeout= 300 " & _
                     ";Data Provider=SQLOLEDB.1 "
        
        CurrentProject.OpenConnection strConn
    End If