Private Sub subHinzufügen()
 
 
    Set mc = New ADODB.Connection
    mc.ConnectionString = "Driver={MySQL ODBC 3.51" & _
      "Driver};port=3306;Server=localhost;Database=trbus;User=root;Password=;O" & _
      "tion=3;"
mc.Open
 
 
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
 
 
    rs.Open "SELECT * FROM status WHERE 1=0", mc
 
 
    rs.AddNew
    !Bit1 = xvari1   'hier bleibt das Programm wegen Fehler stehen
    !Bit2 = xvari2
    !Bit3 = xvari3
    !Bit4 = xvari4
    !Bit5 = xvari5
    !Bit6 = xvari6
    !Bit7 = xvari7
    !Bit8 = xvari8
    !Datum = Date
    !Zeit = Time
 
 
 
    rs.Update
    rs.Close
 
 
 
End Sub