Function Einfügen_Datensatz_Reparatur_Auftrag(ByVal Index_maschine As Integer, _
  ByVal Index_reparatur_status As Integer, _
    ByVal Wichtigkeit As String, ByVal Index_Auftraggeber As Integer, ByVal _
    Fehlerhinweis As String) As Long
 
        Dim timestamp As Date = System.DateTime.Now
        Dim cara As New SqlClient.SqlCommandBuilder(Adapter_Reparatur_Auftrag)
 
        Dim dt As Data.DataTable
        dt = Dataset_Reparatur_Daten.Tables("Reparatur_Auftrag")
 
        Dim rw As Data.DataRow = dt.NewRow()
        rw.Item("Index_Maschine") = Index_maschine
        rw.Item("Datum") = timestamp
        rw.Item("Index_Reparatur_Status") = Index_reparatur_status
        rw.Item("Wichtigkeit") = Wichtigkeit
        rw.Item("Index_Auftraggeber") = Index_Auftraggeber
        rw.Item("Fehlerhinweis") = Fehlerhinweis
 
        dt.Rows.Add(rw)
 
        ' Nun wird die Verbindung zur Datenbank geöffnet und die geänderten 
        ' Daten an den Server gesendet
 
        connection.Open()
 
        Try
            Adapter_Reparatur_Auftrag.Update(dt)
            Beep()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        connection.Close()
 
        ' Nun wird der Index des Datensatzes aus der Datenbanl gelesen
 
        Dim tabelle As New Data.DataTable
        tabelle = Dataset_Reparatur_Daten.Tables("Reparatur_Auftrag")
 
 
        For Each _r As DataRow In tabelle.Select("", "Index_Reparatur_auftrag" & _
          "desc")
            MsgBox(_r.Item("index_Reparatur_Auftrag").ToString)
            'Einfügen_Datensatz_Reparatur_Auftrag = _r.Item( 
            ' "index_Reparatur_Auftrag").ToString
        Next
 
 
    End Function