проблема с удалением

      Dim param As SqlParameter

      DeleteCommand = New SqlCommand
      DeleteCommand.Connection = oConn
      DeleteCommand.CommandText = "DELETE FROM TEST WHERE NREC = @NREC"
      param = DeleteCommand.Parameters.Add("@NREC", SqlDbType.BigInt, 8, "NREC")
      param.SourceVersion = DataRowVersion.Original

      dataAdapter.DeleteCommand = DeleteCommand