Ustring.Remove(0, Ustring.Length)
        Ustring.Append("INSERT INTO Sprachlabor  (Nummer, Dozent, Richtung, ")
        Ustring.Append("Datum, Semester, Zeit, Raum, Bemerkungen, Art, Länge," & _
          "MP3, PDF) ")
        Ustring.Append("Values (@NummerNew, @DozentNew, @RichtungNew," & _
        "@DatumNew, @SemesterNew, ")
        Ustring.Append("@ZeitNew, @RaumNew, @BemerkungenNew, @ArtNew," & _
        "@LängeNew, @MP3New, @PDFNew)")
 
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand( _
          Ustring.ToString, con)
        ' Anfügen der Parameter
        cmd.Parameters.Clear()
 
        cmd.Parameters.AddWithValue("@DozentNew", Dozent)
        cmd.Parameters.AddWithValue("@RichtungNew", Richtung)
        cmd.Parameters.AddWithValue("@DatumNew", Datum)
        cmd.Parameters.AddWithValue("@SemesterNew", Semester)
        cmd.Parameters.AddWithValue("@ZeitNew", Uhrzeit)
        cmd.Parameters.AddWithValue("@RaumNew", Raum)
        cmd.Parameters.AddWithValue("@BemerkungenNew", Bemerkungen)
        cmd.Parameters.AddWithValue("@ArtNew", Art)
        cmd.Parameters.AddWithValue("@LängeNew", Länge)
        cmd.Parameters.AddWithValue("@MP3New", MP3)
        cmd.Parameters.AddWithValue("@PDFNew", pdf)
        cmd.Parameters.AddWithValue("@NummerNew", Nummer)
 
        Return cmd
    End Function
 
 
    Private Function SubmitInsert(ByVal cmd As OleDb.OleDbCommand) As Integer
 
 
        Return cmd.ExecuteNonQuery()
 
        'Catch ex As OleDb.OleDbException
        MsgBox("Fehler beim Speichern in Datenbank")
        'End Try
    End Function

- Signaturen werden nur von Weicheiern ausgef?llt -