Function fctCreateUpdateCommand(ByVal con As SqlConnection) As SqlCommand
 
    Dim cmd As SqlCommand = New SqlCommand()
    cmd.CommandText = "UPDATE tblZR " & _
            "SET " & _
            "DelFlag = @DelFlag, " & _
            ...
            ...
            "ZRDatumBis = @ZRDatumBis, " & _
            "Bemerkung = @Bemerkung, " & _
            "Sperre = @Sperre " & _
            "WHERE (ZRIdent = @ZRIdent)"
 
      cmd.Connection = con
 
      Dim col As SqlParameterCollection = cmd.Parameters
 
      col.Add(New SqlParameter("@DelFlag", SqlDbType.Bit, 1, "DelFlag"))
      ...
      ...
      col.Add(New SqlParameter("@ZRDatumBis", SqlDbType.Date, 3, "ZRDatumBis"))
      col.Add(New SqlParameter("@Bemerkung", SqlDbType.VarChar, -1, _
        "Bemerkung"))
      col.Add(New SqlParameter("@Sperre", SqlDbType.Bit, 1, "Sperre"))
      Dim param As SqlParameter = New SqlParameter( _
      "@ZRIdent", SqlDbType.Int, 4, "ZRIdent")
      col.Add(param)
      param.SourceVersion = DataRowVersion.Original
 
      Return cmd
  End Function

  Function fctCreateDeleteCommand(ByVal con As SqlConnection) As SqlCommand
 
    Dim cmd As SqlCommand = New SqlCommand()
    Try
      cmd.CommandText = "DELETE FROM tblZR " & _
            "WHERE (ZRIdent = @ZRIdent)"
 
      cmd.Connection = con
 
      Dim col As SqlParameterCollection = cmd.Parameters
 
      Dim param As SqlParameter = New SqlParameter( _
      "@ZRIdent", SqlDbType.Int, 4, "ZRIdent")
      col.Add(param)
      param.SourceVersion = DataRowVersion.Original
 
      Return cmd
 
  End Function

   ...
   ...
  DataAdapter.UpdateCommand = fctCreateUpdateCommand(con)
  DataAdapter.DeleteCommand = fctCreateDeleteCommand(con)
   ...
   ...