Dim cmd3 As OleDbCommand
            'cmd3 = New OleDbCommand("Insert into tbl_tage (Tagesdatum," & _
              "Uhrzeit, EreignissID, Dauer, Bemerkung) values (" & _
              "@p1,@p2,@p3,@p4,@p5)", conn)
 
            cmd3 = New OleDbCommand("Insert into tbl_tage (Tagesdatum," & _
              "EreignissID, Dauer, Bemerkung) values (@p1,@p3,@p4,@p5)", conn)
 
            'com.CommandText = "INSERT INTO tablename (a_date, a_text) VALUES(" & _
              "@p1, @p2)"
            cmd3.Parameters.Add("@p1", OleDbType.DBDate)
            'cmd3.Parameters.Add("@p2", OleDbType.DBTime)
            cmd3.Parameters.Add("@p3", OleDbType.Double)
            cmd3.Parameters.Add("@p4", OleDbType.Double)
            cmd3.Parameters.Add("@p5", OleDbType.Char)
 
            cmd3.Parameters("@p1").Value = CDate(Format(TagesDatum, _
              "yyyy.MM.dd"))
            'cmd3.Parameters("@p2").Value = Format(Uhrzeit, "hh.mm.ss")
            cmd3.Parameters("@p3").Value = EreignissID
            cmd3.Parameters("@p4").Value = 0
            cmd3.Parameters("@p5").Value = Bemerkung
 
            conn.Open()
            cmd3.ExecuteNonQuery()
            conn.Close()

Die L?sung eines Problems besteht darin, jemanden zu finden, der das Problem l?st.