Private Sub InsertRecord(F1 As String, F2 As String, F3 As String, F4 As String, F5 As String, F6 As Date, F7 As Date, F8 As String, F9 As Integer)
    Dim cn As ADODB.Connection, rs As ADODB.Recordset, q As String
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB.1 бла бла бла"
    cn.Open
    
    Set rs = New ADODB.Recordset
    q = "INSERT INTO datafull VALUES ('" & F1 & "', '" & F2 & "', '" & F3 & "', '" & F4 & "', '" & F5 & "', '" & F6 & "', '" & Format(F7, "dd.mm.yyyy") & "', '" & F8 & "', '" & F9 & "', '" & F10 & "', '" & Format(F11, "dd.mm.yyyy") & "')"
    'rs.Open q, cn
    
    Debug.Print q
    
    'cn.Close
    Set cn = Nothing
End Sub