Dim cr As Integer = dg1.CurrentRowIndex
        Try
            If cr < 0 Then
                Hinweis("Es ist kein Datensatz vorhanden")
                Exit Try
            End If
            Dim f As New frmAuftragDialog
            f.Text = "Auftrag ändern..."
            f.Neu = False
            f.Datensatz = clsMain.ds.Tables("auftrag").Rows.Find(dg1.Item(cr, _
              0)) 'Hier kommt der Fehler
            f.ShowDialog()
            For i As Integer = 1 To 13
                clsMain.ds.Tables("auftrag").Rows.Find(dg1.Item(cr, 0)).Item(i) _
                  = f.Datensatz.Item(i)
            Next
            da.SelectCommand.CommandText = SEL + "auftrag"
            da.Update(clsMain.ds, "auftrag")
        Catch ex As Exception
            Errorhandler("Es wurde ein Fehler beim Ändern eines Auftrages" & _
              "festgestellt", ex)
        End Try