error a la hora de actualizar datagrid

[oslar]

Código vb:

Private Sub Actualizar(Optional ByVal bCargar As Boolean = True)
        ' Actualizar y guardar cambios   
        If Not bs.DataSource Is Nothing Then
            da.Update(CType(bs.DataSource, DataTable))'aqui me da error.
            If bCargar Then
                cargar_registros("Select * From usuarios", DataGridView1)
            End If
        End If
    End Sub
 

el error indicado es:Update requiere que DeleteCommand sea válido cuando se pasa la colección DataRow con filas eliminadas.
que problema m ocurre,
un saludo