error al actualizar dataadapter

Flaco te podemor ayudar si das mas info.
Pon el codigo a ver si vemos algo mal.

Miao

Me.dataadapter.Update(tablaborrados)

en la linea que indico arriba actualizo una tabla

temporal, con los datos

borrados en un dataset.

al intentar ejecutar el codigo que indico arriba me sale

un error de

excepcion no controlada, pero no muestra informacion

alguna. ¿Alguien sabe

que sucede?

GRACIAS DE ANTEMANO


.

este es el codigo que utilizo para conectar,mostrar y grabar en la bd

Public oCmdInsercion As OleDbCommand

Public Num_Reg As Long

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

Me.oDataAdapter = New OleDbDataAdapter

Me.oCmdInsercion = New OleDbCommand("Insert into [Juegos PC]
(Nombre,Tipo,Cds) values (@nom,@tipo,@cds)", Me.Conexion)

Me.oDataAdapter.InsertCommand = oCmdInsercion

Me.oDataAdapter.InsertCommand.Parameters.Add(New OleDbParameter("@nom",
OleDbType.VarChar))

Me.oDataAdapter.InsertCommand.Parameters.Add(New OleDbParameter("@tipo",
OleDbType.VarChar))

Me.oDataAdapter.InsertCommand.Parameters.Add(New OleDbParameter("@cds",
OleDbType.VarNumeric))

Dim oCmdConsulta As New OleDbCommand("select * from [Juegos PC]", Conexion)

Me.oDataAdapter.SelectCommand = oCmdConsulta

Me.cargardatos()

End Sub

Public Sub cargardatos()

Me.ODataSet1.Clear()

Me.Conexion.Open()

Try

Me.oDataAdapter.Fill(ODataSet1, "[Juegos PC]")

Catch ex As Exception

MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1,
MessageBoxOptions.DefaultDesktopOnly)

Me.Conexion.Close()

Application.Exit()

End Try

Me.Conexion.Close()

Me.edglistado.DataSource = ODataSet1

Me.edglistado.DataMember = "[Juegos PC]"

End Sub

Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnguardar.Click

Dim iResultado As Integer

Me.Num_Reg = Me.BindingContext(ODataSet1, "[Juegos PC]").Position.ToString

Me.oDataAdapter.InsertCommand.Parameters("@nom").Value ODataSet1.Tables("[Juegos PC]").Rows(Num_Reg).Item("Nombre")

Me.oDataAdapter.InsertCommand.Parameters("@tipo").Value ODataSet1.Tables("[Juegos PC]").Rows(Num_Reg).Item("Tipo")

Me.oDataAdapter.InsertCommand.Parameters("@cds").Value ODataSet1.Tables("[Juegos PC]").Rows(Num_Reg).Item("Cds")

Me.Conexion.Open()

Try

Me.oDataAdapter.InsertCommand.ExecuteNonQuery()

Catch ex As Exception

MessageBox.Show(ex.Message.ToString, "Error")

End Try

Me.Conexion.Close()

Me.cargardatos()

MsgBox("Registros añadidos: " & iResultado)

End Sub