Data adapter not updating

See more:

VB

it has always worked for me, written the same way. But won't under this code.

Private Sub PayBy_PaidByOther(ByVal type As String, ByVal Actnum As String) Handles PayBy.PaidByOther
      Select Case type
          Case "CC"
              BSvchrs.Current!CHECKNUM = Actnum
              BSvchrs.Current!STATUS = "PAID"
          Case "EFT"
      End Select
      dgVchrMast.Refresh()
      dgVchrMast.EndEdit()
      CMD.CommandText = SQvchrmast
      DA.SelectCommand = CMD
      CmdBldr.DataAdapter = DA
      CmdBldr.RefreshSchema()
      Try
          DA.Update(DS.Tables("vchrmast"))
          DS.Tables("vchrmast").AcceptChanges()
      Catch
          Debug.Print("ERROR")
      End Try

  End Sub

What I have tried:

nothing. Because the same code works in other areas.