ODBC MySQL from VBA throwing error
Sub WriteToDatabase(AccessionID As String)
    On Error GoTo DBError
    Set oRS = New ADODB.Recordset
        dateTime = CStr(Now)
        state = "In Progress 1"
        strSQL = "INSERT INTO track (AccID, DateTime, Gender,State,Proc1BatchID,Proc2BatchID) " & _
                "VALUES ('" & esc(AccID) & "', " & _
                "'" & esc(dateTime) & "'," & _
                "'NULL'," & _
                "'" & esc(state) & "', " & _
                "'NULL'," & _
                "'NULL'," & _
                "'NULL')"
        oRS.Open strSQL, oConn, adOpenDynamic, adLockOptimistic

        If Not oRS Is Nothing Then Set oRS = Nothing
        If Not oConn Is Nothing Then Set oConn = Nothing
    rs.Close
    oRS.Close
    oConn.Close
DBError:
     MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
End Sub
Sub ConnectToDatabase()
    Set oConn = New ADODB.Connection
    oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
        "SERVER=127.0.0.1;" & _
        "DATABASE=phase1;" & _
        "USER=root;" & _
        "PASSWORD=pass;" & _
        "PORT=3306;" & _
        "Option=3"
  End Sub
Function esc(txt As String)
    esc = Trim(Replace(txt, "'", "'"))
End Function