start_date= 13 . 01 . 2011 ;start_time= 01 : 35 : 01 ;end_date= 13 . 01 . 2011 ;end_time= 01 : 37 : 25 ;
start_date= 13 . 01 . 2011 ;start_time= 02 : 40 : 15 ;end_date= 13 . 01 . 2011 ;end_time= 02 : 42 : 55 ;

Public Function GetFieldFromStr(str As String, Field As String) As String
    Dim temp As String
    temp = str
    GetFieldFromStr = ""
    If InStr(temp, Field & "=") >  0  Then
        temp = Trim(Right(temp, Len(temp) - InStr(temp, Field & "=") - Len(Field)))
        If InStr(temp, ";") >  0  Then
            temp = Trim(Left(temp, InStr(temp, ";") -  1 ))
        End If
        GetFieldFromStr = temp
    End If
End Function

Public Function GetMyRegionalDateTime(txtDate As String, txtTime As String) As String
    Dim date_tempDate As String, date_tempTime As String 'дата/время в формате тек.OS
    GetMyRegionalDateTime = ""
    date_tempDate = ""
    date_tempTime = ""
    If (ChNum(txtDate, ".") =  2 ) Then '12.05.2010-жестко использовалось
        date_tempDate = DateSerial(Val(TabPoz(txtDate, ".",  3 )), _
          Val(TabPoz(txtDate, ".",  2 )), Val(TabPoz(txtDate, ".",  1 )))
    End If
    If (ChNum(txtTime, ":") =  2 ) Then '16:06:17-жестко использовалось
        date_tempTime = TimeSerial(Val(TabPoz(txtTime, ":",  1 )), _
          Val(TabPoz(txtTime, ":",  2 )), Val(TabPoz(txtTime, ":",  3 )))
    End If
    If (Len(date_tempDate) >  0 ) And (Len(date_tempTime) >  0 ) Then
        GetMyRegionalDateTime = date_tempDate & " " & date_tempTime
    End If
End Function

...
        TextFile.OpenText LogPath & "\log.txt"
        For i =  1  To TextFile.Count
            str = TextFile.stroka(i)
            objRecSetOut.AddNew
            StartTime = GetMyRegionalDateTime(GetFieldFromStr(str, "start_date"), _
              GetFieldFromStr(str, "start_time"))
            If IsDate(StartTime) Then
                objRecSetOut!start_datetime = StartTime
            End If
            EndTime = GetMyRegionalDateTime(GetFieldFromStr(str, "end_date"), _
              GetFieldFromStr(str, "end_time"))
            If IsDate(EndTime) Then
                objRecSetOut!end_datetime = EndTime
            End If
 ...

   objRecSetOut.Open "SELECT * FROM table ORDER BY ID DESC", adoConn

Private Sub Form_Load()
    Set adoConn = New ADODB.Connection
    adoConn.Open "Provider=Microsoft.Jet.OLEDB. 4 . 0 ;Data Source=baza.mdb
...
Private Sub Form_Unload(Cancel As Integer)
...
    adoConn.Close
End Sub

    objRecSetOut.Close
    objRecSetOut.Open "SELECT * FROM table ORDER BY ID DESC", adoConn

Private Sub Form_Load()
    Set adoConn = New ADODB.Connection
    adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      LogPath & "\baza.mdb;Mode=Share Deny None;Persist Security Info=False"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    adoConn.Close
    Set adoConn = Nothing
End Sub

'открываем перед тем как что-то делать
        Set objRecSetOut = New ADODB.Recordset
        objRecSetOut.CursorType = adOpenDynamic
        objRecSetOut.LockType = adLockOptimistic
        objRecSetOut.Open "SELECT * FROM table ORDER BY ID DESC", adoConn
'набор действий
..............................
'закрываем сразу как "сделали"
        objRecSetOut.Close
        Set objRecSetOut = Nothing

Dim AdoConnection 'As ADODB.Connection
Dim objRecSet 'As ADODB.Recordset

    Set AdoConnection = CreateObject("ADODB.Connection") 'New ADODB.Connection 
    Set objRecSet = CreateObject("ADODB.Recordset") 'New ADODB.Recordset  

   objRecSet.CursorType = adOpenDynamic
    objRecSet.LockType = adLockOptimistic

Conn.Execute "UPDATE MyTable SET MyField=5 WHERE ID="+CStr(i)

adoConn.Execute "INSERT INTO TheTable (start_datetime,field5,field9) VALUES('" & Now() & "','Text in field 5',999)"

"'" & DateSerial(год,месяц,число) & " " & TimeSerial(часы,минуты,секунды) & "'"

Public Function GetFieldFromStr(str As String, Field As String) As String
    Dim temp As String
    temp = str
    GetFieldFromStr = ""
    If InStr(temp, Field & "=") >  0  Then
        temp = Trim(Right(temp, Len(temp) - InStr(temp, Field & "=") - Len(Field)))
        If InStr(temp, ";") >  0  Then
            temp = Trim(Left(temp, InStr(temp, ";") -  1 ))
        End If
        GetFieldFromStr = temp
    End If
End Function

Public Function GetMyRegionalDateTime(txtDate As String, txtTime As String) As String
    Dim date_tempDate As String, date_tempTime As String 'дата/время в формате тек.OS
    GetMyRegionalDateTime = ""
    date_tempDate = ""
    date_tempTime = ""
    If (ChNum(txtDate, ".") =  2 ) Then '12.05.2010-жестко использовалось
        date_tempDate = DateSerial(Val(TabPoz(txtDate, ".",  3 )), _
          Val(TabPoz(txtDate, ".",  2 )), Val(TabPoz(txtDate, ".",  1 )))
    End If
    If (ChNum(txtTime, ":") =  2 ) Then '16:06:17-жестко использовалось
        date_tempTime = TimeSerial(Val(TabPoz(txtTime, ":",  1 )), _
          Val(TabPoz(txtTime, ":",  2 )), Val(TabPoz(txtTime, ":",  3 )))
    End If
    If (Len(date_tempDate) >  0 ) And (Len(date_tempTime) >  0 ) Then
        GetMyRegionalDateTime = date_tempDate & " " & date_tempTime
    End If
End Function

Public Function GetMyAccessDateTime(regionalDateTime As String) As String
    GetMyAccessDateTime = ""
    If IsDate(regionalDateTime) Then
        GetMyAccessDateTime = "#" & Format$(regionalDateTime, "mm\/dd\/yyyy hh:mm:ss") & "#"
    End If
End Function

    Dim StartTime As String
    Dim EndTime As String
...
                Dim StartTime As String
                Dim EndTime As String
                SQL_fields = ""
                SQL_values = ""
                
                StartTime = GetMyAccessDateTime(GetMyRegionalDateTime(GetFieldFromStr(str, "start_date"), _
                  GetFieldFromStr(str, "start_time")))
                If Len(StartTime) >  0  Then
                    SQL_fields = AddField("start_datetime", SQL_fields)
                    SQL_values = AddField(StartTime, SQL_values)
                End If
                
                EndTime = GetMyAccessDateTime(GetMyRegionalDateTime(GetFieldFromStr(str, "end_date"), _
                  GetFieldFromStr(str, "end_time")))
                If Len(EndTime) >  0  Then
                    SQL_fields = AddField("end_datetime", SQL_fields)
                    SQL_values = AddField(EndTime, SQL_values)
                End If
...

                If Len(SQL_fields) >  0  And Len(SQL_values) >  0  Then
                    'добавление записи
                    adoConn.Execute "INSERT INTO outbox (" & SQL_fields & _
                    ") VALUES(" & SQL_values & ")"

            SYSTEMTIME etime;
	    stringstream out;
	    GetLocalTime(&etime);
	    out << setfill('0') << setw( 2 ) << etime.wDay << "." << setw( 2 ) << etime.wMonth << "." << setw( 4 ) << etime.wYear;
	    EndDate = out.str();
	    out.str("");
	    out << setfill('0') << setw( 2 ) << etime.wHour << ":" << setw( 2 ) << etime.wMinute << ":" << setw( 2 ) << etime.wSecond;
            EndTime = out.str();
	    out.str("");

	    ofstream mylog_file(m_lognamelog.c_str());

	    mylog_file << "start_date=" << m_startDate << "\n";
	    mylog_file << "start_time=" << m_startTime << "\n";
	    mylog_file << "end_date=" << EndDate << "\n";
	    mylog_file << "end_time=" << EndTime << "\n";

                SQL_fields = AddField("the_pole5", SQL_fields)
                SQL_values = AddField("'" & Left(GetFieldFromStr(str, "the_pole5"),  5 ) & "'", SQL_values)
                
                SQL_fields = AddField("the_pole6", SQL_fields)
                SQL_values = AddField("'" & Left(GetFieldFromStr(str, "the_pole6"),  255 ) & "'", SQL_values)