Public Shared Function UpdateEintragen(ByVal APKZ As String, ByVal Datum As _
  String, ByVal ZeitVon As String, ByVal ZeitBis As String, ByVal Kunde As _
  String, ByVal Projekt As String, ByVal Taetigkeit As String, ByVal _
  Taetigkeit_VK As String, ByVal Projekt_VK As String, ByVal Kunde_VK As _
  String, ByVal Fakturierbar As String, ByVal ID As Integer) As SqlDataAdapter
        Dim SqlConnLEConnString As String = "user id=*********;data" & _
        "source=Server;persist security info=False;initial" & _
        "catalog=LE;pwd=***********"
        Dim SqlConnLE As SqlConnection
        Dim DatasetEintragen As New DataSet
 
        Try
 
            ' Abfrage um die Zeittabelle mit allem zu füllen!!!!
            SqlConnLE = New SqlConnection(SqlConnLEConnString)
            SqlConnLE.Open()
            Dim cmdInsert As New SqlCommand("Update Zeiten SET Zeitdatum =" & _
              "@Datum, ZeitVon = @ZeitVon , ZeitBis = @ZeitBis, Kunde = @Kunde," & _
              "Projekt =" & _
            " @Projekt , Taetigkeit = @Taetigkeit , Fakturierbar =" & _
            "@Fakturierbar , APKZ = @APKZ  " & _
            "Where ID = @ID", SqlConnLE)
            With cmdInsert.Parameters
                .Add(New SqlParameter("@Datum", Datum))
                .Add(New SqlParameter("@ZeitVon", ZeitVon))
                .Add(New SqlParameter("@ZeitBis", ZeitBis))
                .Add(New SqlParameter("@Kunde", Kunde))
                .Add(New SqlParameter("@Projekt", Projekt))
                .Add(New SqlParameter("@Taetigkeit", Taetigkeit))
                .Add(New SqlParameter("@Fakturierbar", Fakturierbar))
                .Add(New SqlParameter("@APKZ", APKZ))
                .Add(New SqlParameter("@ID", ID))
            End With
 
 
            Dim SqlDataAdapterUser As New SqlDataAdapter(cmdInsert)
            cmdInsert.ExecuteNonQuery()
            SqlDataAdapterUser.Fill(DatasetEintragen)
            SqlDataAdapterUser.UpdateCommand = cmdInsert
            SqlDataAdapterUser.Update(DatasetEintragen, "Zeiten")
 
        Catch Ex As SqlException
            clsLOG.Write_ErrorLOG("Leistungserfassung.clsSQLLE.eintragen", _
              ex.Message, ex.Source, 1)
        Catch ex As Exception
            clsLOG.Write_ErrorLOG("Leistungserfassung.clsSQLLE.eintragen", _
              ex.Message, ex.Source, 2)
 
        End Try
 
    End Function