para empezar la estructura que tienes está muy rara y no está bien hecha.
donde le estás pasando los values a tu insert ???
Dim oCmdInsercion As New SqlCommand("INSERT INTO Autores" & _
"(IDAutor,Autor) VALUES(@IDAutor,@Autor)", oConexion)
oDataAdapter.InsertCommand = oCmdInsercion
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@IDAutor", SqlDbType.Int))
oDataAdapter.InsertCommand.Parameters.Add(New SqlParameter("@Autor", SqlDbType.NVarChar))
donde está el valor de IDAutor y de Autor ??
te podría quedar mejor de ésta forma:
Código:
...
...
Dim oCmdInsercion As New SqlCommand("INSERT INTO Autores" & _
"(IDAutor,Autor) VALUES(@IDAutor,@Autor)", oConexion)
oCmdInsercion .Parameters.Add("@IDAutor", SqlDbType.Int, 4, valor)
oCmdInsercion .Parameters.Add("@Autor", SqlDbType.NVarChar, 20, valor)
oDataAdapter.InsertCommand = oCmdInsercion
Dim oCmdConsulta As New SqlCommand("SELECT * FROM Autores", oConexion)
oDataAdapter.SelectCommand = oCmdConsulta
oDataSet = New DataSet()
oDataAdapter.Fill(oDataSet, "Tabla")
Me.grdDatos.DataSource = oDataSet
Me.grdDatos.DataMember = "Tabla"
pruebalo y nos cuentas como te fue
Salu2