Buenas tardes a todos: Llevo una más de una semana atascada con el mismo problema.Agradecería me echaran una mano, ya que acabo de empezar y me veo estancada sin poder continuar.Utilizo Visual Basic 2005. Tanto al añadir, como al modificar registros, me da el Error Referencia a Objeto no establecida. He realizado varios formularios siguiendo diferentes formas de obtener el resultado, pero siempre me da el mismo error.

.......Form Load
Dim cn As New OleDb.OleDbConnection(Origen)
Dim da As New OleDb.OleDbDataAdapter("Select * from Clientes", cn)
Dim ds As New DataSet()
da.Fill(ds, "Clientes")

Dim cmdBuilder As New OleDb.OleDbCommandBuilder(da)
da.InsertCommand = cmdBuilder.GetInsertCommand
da.DeleteCommand = cmdBuilder.GetDeleteCommand
da.UpdateCommand = cmdBuilder.GetUpdateCommand

Me.txtIdCliente.DataBindings.Add("Text", ds, "Clientes.IDCLIENTE")
Me.txtNombre.DataBindings.Add("Text", ds, "Clientes.Nombre")
Me.txtDomicilio.DataBindings.Add("Text", ds, "Clientes.Direccion")
.......

"Guardar una referencia al objeto BindingManagerBase.
bmb = Me.BindingContext(ds, "Clientes")
"Forzar la actualización de los botones
bmb.Position = bmb.Count
bmb.Position = 0

.....Validar

Private Sub cmdValidar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdValidar.Click
Select Case estado
Case Actualizar.Añadir
If FilaActual <> -1 Then
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim Fila As DataRow
Fila = ds.Tables("Clientes").NewRow()
Fila.Item("IDCLIENTE") = Me.txtIdCliente.Text
Fila.Item("NOMBRE") = Me.txtNombre.Text
Fila.Item("DIRECCION") = Me.txtDomicilio.Text
.........
ds.Tables.Add("Clientes").Rows.Add(Fila)
da.Update(ds, "Clientes")
Me.statusAviso.Text = "Registro Añadido Correctamente"
Case Actualizar.Modificar

ds.Tables("Clientes").Rows(FilaActual).Item("IDCLI ENTE") = Me.txtIdCliente.Text
ds.Tables("Clientes").Rows(FilaActual).Item("NOMBR E") = Me.txtNombre.Text
ds.Tables("Clientes").Rows(FilaActual).Item("DIREC CION") = Me.txtDomicilio.Text
........
da.Update(ds, "Clientes")

...AÑADIR:
Dim control As Control
For Each control In Controls
If TypeOf control Is TextBox Or TypeOf control Is MaskedTextBox Then
control.Text = ""
End If
Next
Estado = Actualizar.Añadir

El error cuando le doy a actualizar, modificar los cambios, por añadir o por modificar el registro me da en:
ds.Tables("Clientes").Rows(FilaActual).Item("IDCLI ENTE") = Me.txtIdCliente.Text
y en:
Fila = ds.Tables("Clientes").NewRow()
Muchas gracias por su atención. Un saludo. Si creen que visionando la aplicación pueden ayudarme, ruego me envien un correo a beatrizgdd@hotmail.com.

Hola. Checando tu codigo en la parte de modificar talvez te marca el error porque te falta decir que empieze a modificar antes de asignar nuevamente los datos. Mediante la instruccion:
FilaAModificar.BeginEdit()

y despues guardar los cambios con:

FilaAModificar.EndEdit()

En cuanto a la funcion añadir todavia no veo por que te marca el error.

:-) Saludos

Muchas gracias lesthad por tu participación, da gusto contar con gente que trate de echarte una mano. Pero nada, continúa dandome el mismo error.
Gracias de nuevo por las molestias. Un saludo.

Hola,

la tenes declarada en el Load() del formulario y la estas tratando de acceder desde un procedimiento?, el alcance de la variable en ese caso se limita al Load() nomás. Proba declarando la variable como miembro de tu formulario:

Saludos!

Muchas gracias maxonico por tu aportación. He probado y continúa dandome el error, aunque ahora me da en da.Update(ds,"tabla"). Os muestro el código:
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Clientes
Dim WithEvents bmb As BindingManagerBase
Dim estado As Actualizar
Dim FilaActual As Integer
Dim da As OleDb.OleDbDataAdapter
Dim cambios As Boolean
Private ds As New DataSet()

Private Sub Clientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.statusAviso.Text = ""
Me.statusUsuario.Text = "Usuario Actual :" & UsuarioActual.ToUpper
Me.statusFecha.Text = Now()

Dim cn As New OleDb.OleDbConnection(Origen)
Dim da As New OleDb.OleDbDataAdapter("Select * from Clientes", cn)
da.Fill(ds, "Clientes")

Dim cmdBuilder As New OleDb.OleDbCommandBuilder(da)
da.InsertCommand = cmdBuilder.GetInsertCommand
da.DeleteCommand = cmdBuilder.GetDeleteCommand
da.UpdateCommand = cmdBuilder.GetUpdateCommand

Me.txtIdCliente.DataBindings.Add("Text", ds, "Clientes.IDCLIENTE")
Me.txtNombre.DataBindings.Add("Text", ds, "Clientes.Nombre")
Me.txtDomicilio.DataBindings.Add("Text", ds, "Clientes.Direccion")
Me.txtPoblacion.DataBindings.Add("Text", ds, "Clientes.Ciudad")
Me.txtCP.DataBindings.Add("Text", ds, "Clientes.CP")
Me.txtTelefono1.DataBindings.Add("Text", ds, "Clientes.Telefono1")
Me.txtTelefono2.DataBindings.Add("Text", ds, "Clientes.Telefono2")
Me.txtMovil.DataBindings.Add("Text", ds, "Clientes.Movil")
Me.txtFax.DataBindings.Add("Text", ds, "Clientes.Fax")
Me.txtEmail.DataBindings.Add("Text", ds, "Clientes.Email")
Me.txtPagWeb.DataBindings.Add("Text", ds, "Clientes.PAGWEB")
Me.ckAlmacenaje.DataBindings.Add("Checked", ds, "Clientes.Almacenaje")
Me.txtNif.DataBindings.Add("Text", ds, "Clientes.NIF")
Me.txtTipoTarifa.DataBindings.Add("Text", ds, "Clientes.TipoTarifa")

'Guardar una referencia al objeto BindingManagerBase.
bmb = Me.BindingContext(ds, "Clientes")
'Forzar la actualización de los botones
bmb.Position = bmb.Count
bmb.Position = 0
da.Update(ds.Tables("Clientes"))
End Sub


Private Sub bmb_PositionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles bmb.PositionChanged
Me.txtSituacion.Text = String.Format("{0} de {1}", bmb.Position + 1, bmb.Count)
End Sub

Private Sub cmdValidar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdValidar.Click
Select Case estado
Case Actualizar.Añadir
If FilaActual <> -1 Then
Dim Fila As DataRow
Fila = ds.Tables("Clientes").NewRow()

Me.txtSituacion.Text = String.Format("{0} de {1}", bmb.Position + 1, bmb.Count)
Me.statusAviso.Text = "Insertado nuevo Registro"
Try
Fila.Item("IDCLIENTE") = Me.txtIdCliente.Text
Fila.Item("NOMBRE") = Me.txtNombre.Text
Fila.Item("DIRECCION") = Me.txtDomicilio.Text
Fila.Item("CIUDAD") = Me.txtPoblacion.Text
Fila.Item("CP") = Me.txtCP.Text
Fila.Item("TELEFONO1") = Me.txtTelefono1.Text
Fila.Item("TELEFONO2") = Me.txtTelefono2.Text
Fila.Item("MOVIL") = Me.txtMovil.Text
Fila.Item("FAX") = Me.txtFax.Text
Fila.Item("EMAIL") = Me.txtEmail.Text
Fila.Item("PAGWEB") = Me.txtPagWeb.Text
Fila.Item("ALMACENAJE") = Me.ckAlmacenaje.CheckState
Fila.Item("NIF") = Me.txtNif.Text
Fila.Item("HORARIO") = Me.txtHorario.Text
Fila.Item("OBSERVACIONES") = Me.txtObservaciones.Text
ds.Tables.Add("Clientes").Rows.Add(Fila)
da.Update(ds.Tables("Clientes"))
Me.statusAviso.Text = "Registro Añadido Correctamente"
Me.txtSituacion.Text = Me.bmb.Position

Catch ex As Exception
Me.statusAviso.Text = ex.Message
End Try
End If
Case Else
ds.Tables("Clientes").Rows(FilaActual).BeginEdit()
ds.Tables("Clientes").Rows(FilaActual).Item("IDCLI ENTE") = Me.txtIdCliente.Text
ds.Tables("Clientes").Rows(FilaActual).Item("NOMBR E") = Me.txtNombre.Text
ds.Tables("Clientes").Rows(FilaActual).Item("DIREC CION") = Me.txtDomicilio.Text
ds.Tables("Clientes").Rows(FilaActual).Item("CIUDA D") = Me.txtPoblacion.Text
ds.Tables("Clientes").Rows(FilaActual).Item("CP") = Me.txtCP.Text
ds.Tables("Clientes").Rows(FilaActual).Item("TELEF ONO1") = Me.txtTelefono1.Text
ds.Tables("Clientes").Rows(FilaActual).Item("TELEF ONO2") = Me.txtTelefono2.Text
ds.Tables("Clientes").Rows(FilaActual).Item("MOVIL ") = Me.txtMovil.Text
ds.Tables("Clientes").Rows(FilaActual).Item("FAX") = Me.txtFax.Text
ds.Tables("Clientes").Rows(FilaActual).Item("EMAIL ") = Me.txtEmail.Text
ds.Tables("Clientes").Rows(FilaActual).Item("PAGWE B") = Me.txtPagWeb.Text
ds.Tables("Clientes").Rows(FilaActual).Item("NIF") = Me.txtNif.Text
ds.Tables("Clientes").Rows(FilaActual).Item("TIPOT ARIFA") = Me.txtTipoTarifa.Text
ds.Tables("Clientes").Rows(FilaActual).Item("HORAR IO") = Me.txtHorario.Text
ds.Tables("Clientes").Rows(FilaActual).Item("OBSER VACIONES") = Me.txtObservaciones.Text
ds.Tables("Clientes").Rows(FilaActual).Item("ALMAC ENAJE") = Me.ckAlmacenaje.CheckState
ds.Tables("Clientes").Rows(FilaActual).EndEdit()

If ds.HasChanges Then
da.Update(ds.Tables("Clientes"))
ds.AcceptChanges()
Me.statusAviso.Text = "Datos Modificados Correctamente"
Else
Me.statusAviso.Text = "No hay cambios pendientes de Actualizar"
End If
End Select

End Sub

Private Sub cmdAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAñadir.Click
Dim control As Control
For Each control In Controls
If TypeOf control Is TextBox Or TypeOf control Is MaskedTextBox Then
control.Text = ""
End If
Next
estado = Actualizar.Añadir
End Sub

End Class