Function UpdateData(ByVal iCount2 As Integer, ByRef DV As System.Data.DataView, _
  ByRef ADP As System.Data.SqlClient.SqlDataAdapter, ByVal TP As _
  System.Windows.Forms.TabPage, ByVal PrimKey As String) As Boolean
        Dim iCount As Integer
        Dim Data(19, 1) As String
 
        Try
 
            Data = SaveInputToTemp(TP)
            For iCount = 0 To 19
                If Data(iCount, 1) <> "" Then
                    If Mid(Data(iCount, 0), 1, 4) = "Date" Then
                        DV(iCount2)(Data(iCount, 0)) = CDate(Data(iCount, 1)) 
                    Else
                        DV(iCount2)(Data(iCount, 0)) = Data(iCount, 1)
                    End If
                End If
            Next iCount
 
           ' Hier fehlt doch was, oder ?!???
 
            ADP.Update(DV.Table.DataSet)
 
            Return True
 
        Catch
 
            MsgBox("Fehler: " & Err.Description & vbCrLf & " Quelle:" & _
              Err.Source, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly, _
              "Programmfehler")
            Return False
 
        End Try
End Function

--- stay cool and rule ---