Sub createDataT(Katalog, sovmesheniya As Boolean)
On Error GoTo Err_Msg
    Dim cnn As ADODB.Connection
    Dim strCnnString As String
    Dim sqlString As String
    DirPath = Katalog ' путь к базе данных
    Set cnn = New ADODB.Connection
    ' Строка подключения ODBC.
    strCnnString = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & DirPath & ";"
    cnn.Open strCnnString
    ' Используем метод Execute для создания таблицы.
    ' Строка запроса
    sqlString = "CREATE TABLE" & IIf(sovmesheniya = False, " DataT.Dbf (", " DataTS.Dbf (") & _
    "YEAR number ," & _
    "MONTH int ," & _
    "TN int," & _
    "FIO string (50), " & _
    "DOLZH string (100) ," & _
    "D_1 string (7) ," & _
    "D_2 string (7),D_3 string (7),D_4 string (7),D_5 string (7),D_6 string (7),D_7 string (7)," & _
    "D_8 string (7),D_9 string (7),D_10 string (7),D_11 string (7),D_12 string (7),D_13 string (7)," & _
    "D_14 string (7),D_15 string (7),D_16 string (7),D_17 string (7),D_18 string (7),D_19 string (7)," & _
    "D_20 string (7)," & _
    "D_21 string (7)," & _
    "D_22 string (7)," & _
    "D_23 string (7)," & _
    "D_24 string (7)," & _
    "D_25 string (7)," & _
    "D_26 string (7)," & _
    "D_27 string (7)," & _
    "D_28 string (7)," & _
    "D_29 string (7)," & _
    "D_30 string (7)," & _
    "D_31 string (7),"
    If sovmesheniya = False Then
    sqlString = sqlString & "DNI float ,NIGHT float NULL,HALLDAY float,SOVM float,SVERH_15 float,SVERH_20 float,TARIF float,OPLSV15 float, " & _
    "DOPL_BRIG float ,OPLSOVM float,OPLSV20 float ,OPLCLAS float,KTU float, " & _
    "CurrentDT string (25))"
    Else
    sqlString = sqlString & "NIGHT float NULL,HALLDAY float,KTU float,Tarif float, " & _
    "CurrentDT string (25))"
    End If
cnn.Execute (sqlString)
cnn.Close
Set cnn = Nothing
Exit Sub
Err_Msg: MsgBox "Возникла ошибка - " & Err.Description & ". Обратитесь к администратору"
Exit Sub

End Sub