Dim cmd3 As OleDbCommand
            cmd3 = New OleDbCommand("Insert into tbl_tage (Tagesdatum, Uhrzeit," & _
              "EreignissID, Dauer, Bemerkung) values (@p1,@p2,@p3,@p4,@p5)", _
              conn)
 
            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.VarChar)
 
            cmd3.Parameters("@p1").Value = CDate(Format(TagesDatum, _
              "yyyy.MM.dd"))
            cmd3.Parameters("@p2").Value = TimeSpan.Parse(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.