Código de una base de datos

[eduardo90]

Aca esta el código

Imports System.Data.SqlClient

Public Class Form1

Private oDataAdapter As SqlDataAdapter
Private iDataAdapter As SqlDataAdapter
Private oDataRow As DataRow

Private oConexion As SqlConnection
Private oDataSet As DataSet
Private IPosFilaActual As Integer



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

oConexion = New SqlConnection()
oConexion.ConnectionString = "Server=(local);Database=Inventario;uid=sa;pwd =;"

'Crea adaptador
Me.oDataAdapter = New SqlDataAdapter("SELECT *FROM Libros", oConexion)
'Crear commadnbuilder
Dim oCommBuild As SqlCommandBuilder = New SqlCommandBuilder(oDataAdapter)

'Crea el dataset
Me.oDataSet = New DataSet()

oConexion.Open()
Me.oDataAdapter.Fill(oDataSet, "Libros")
oConexion.Close()

Me.IPosFilaActual = 0
Me.CargaDatos()
End Sub

Private Sub CargaDatos()
oDataRow = Me.oDataSet.Tables("Libros").Rows(Me.IPosFilaActua l)

Me.txtCodigoN.Text = oDataRow("Código")
Me.txtTituloN.Text = oDataRow("Titulo")
Me.txtAutorN.Text = oDataRow("Autor")
Me.txtEditorialN.Text = oDataRow("Editorial")
Me.txtEdicionN.Text = oDataRow("Edición")

Me.txtAñoN.Text = oDataRow("Año")
Me.txtCategoriaN.Text = oDataRow("Categoria")
Me.txtNivelN.Text = oDataRow("Nivel")
Me.txtPrecioN.Text = oDataRow("Precio")
Me.txtExistenciasN.Text = oDataRow("Existencias")

Me.lblRegistro.Text = "Registro: " & _
Me.IPosFilaActual + 1 & " de " & _
Me.oDataSet.Tables("Libros").Rows.Count

Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Libros"
End Sub

Private Sub btnPrimero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimero.Click
Me.IPosFilaActual = 0
Me.CargaDatos()
End Sub

Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click
If Me.IPosFilaActual = 0 Then
MsgBox("PRIMER REGISTRO")
Else
Me.IPosFilaActual -= 1
Me.CargaDatos()
End If
End Sub

Private Sub btnSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click
If Me.IPosFilaActual = (Me.oDataSet.Tables("Libros").Rows.Count - 1) Then
MsgBox("ULTIMO REGISTRO")
Else
Me.IPosFilaActual += 1
Me.CargaDatos()
End If
End Sub

Private Sub btnFin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFin.Click
Me.IPosFilaActual = (Me.oDataSet.Tables("Libros").Rows.Count - 1)
Me.CargaDatos()
End Sub

Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
oDataRow.Delete()
Actualizar()
End Sub

Private Sub Actualizar()
oDataAdapter.Update(oDataSet, "Libros")
oDataSet.AcceptChanges()
End Sub
End Class

me dá error en actualizar. PORQUE?