Dim sSQL As New OleDbCommand("INSERT INTO tblMeldung (" & _
  "IdentNr,[Timestamp],status,Meldung) VALUES ('" + id + "','" + Time + "','" + _
  status + "','" + meldung + "')", adoConn)
        Try
            sSQL.CommandTimeout = 2 'maximal 2 Sekunde warten
            sSQL.ExecuteNonQuery()  'SQL-Befehl ausführen
            Me.grdMeldung.Refresh()
        Catch ex As Exception
            Me.ausgabe_FeConStatus = ex.Message
        End Try