Necesita inicializar la propiedad dataadapter.selectcommand

Hola a todos,

Os adjunto mi código. Cuando lo ejecuto, me da el siguiente error "Necesita
inicializar la propiedad dataadapter.selectcommand

¿Una ayudita?



Function Grabar_Linea(ByVal lin As String)

Dim Conexion As OleDbConnection

Dim Ds As DataSet

Dim TablaAuxiliar As DataTable

Dim Adaptador As OleDbDataAdapter

Dim RegistroNuevo As DataRow

Dim cmb As OleDbCommandBuilder = New OleDbCommandBuilder(Adaptador)

'Conectar a la base de datos

Try

Conexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=" & "D:\Prueba\Estudios.mdb")

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Function

End Try

Ds = New DataSet

Adaptador = New OleDbDataAdapter("SELECT * FROM Auxiliar", Conexion)

Try

Adaptador.Fill(Ds, "Auxiliar")

Catch ex As Exception

MessageBox.Show("Error en Fill:" & vbCrLf & ex.Message)

End Try

TablaAuxiliar = Ds.Tables("Auxiliar")

RegistroNuevo = TablaAuxiliar.NewRow

RegistroNuevo("Codigo") = "mxkp2000"

cmb.GetUpdateCommand()

TablaAuxiliar.Rows.Add(RegistroNuevo)

Adaptador.Update(Ds, "Auxiliar")

TablaAuxiliar.AcceptChanges()

End Function