Estoy migrando de vb 6 a vb net con base de datos Acces y todo iba trabajando correctamente hasta que me atore con la actualizacion del dataset, no logro agregar un registro a la base de datos he intentado de todo pero no he logrado hacer que se agregen los registros, no me marca ningun error pero los registros no se agregan en la base de datos, ya no se a que moverle espero alguien me pueda ayudar.
Les dejo el codigo que tengo para agregar registros a la base de datos.
Saludos..

dim ds as new dataset
sel = "Select * From[Lista Maestros]"

Dim adapterss As New OleDbDataAdapter()
dt = New DataTable

adapterss.SelectCommand = New OleDbCommand(sel, conexion)

Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(adapterss)



adapterss.Fill(dt)

Dim dr As DataRow = dt.NewRow

dr("nombre completo") = TextBox2.Text
dr("nomina") = TextBox3.Text
dr("Division") = TextBox4.Text
dr("Departamento") = TextBox5.Text
dr("Tipo de Contrato") = TextBox13.Text
dr("extencion en tec") = TextBox6.Text
dr("Localizacion en tec") = TextBox7.Text
dr("Direccion mex") = TextBox8.Text
dr("Telefono mex") = TextBox9.Text
dr("e-mail") = TextBox10.Text
dr("Direccion externo") = TextBox1.Text
dr("Pais") = TextBox11.Text
dr("Telefono externo") = TextBox12.Text
dr("Fecha de Nacimieto") = TextBox14.Text
dr("Lugar de nacimiento") = TextBox15.Text
dr("Nacionalidad") = TextBox16.Text
dr("Cuenta") = TextBox17.Text
dr("Universidad") = TextBox19.Text
dr("Doctorado") = CheckBox1.Checked
dr("Maestria") = CheckBox2.Checked
dr("En") = TextBox20.Text
dr("EspecialidadAd") = TextBox21.Text
dr("fechain") = TextBox22.Text
dr("fechater") = TextBox23.Text
dr("fextencion") = TextBox24.Text
dr("observaciones") = TextBox25.Text
dr("fechaDintegracionPlanta") = TextBox26.Text
dr("antiguedad") = TextBox27.Text
dr("casado") = CheckBox3.Checked
dr("nombre completo del conyugue") = TextBox28.Text
dr("hijos") = CheckBox4.Checked
dr("Evaluacion Psicologica") = TextBox30.Text
dr("activo en el extranjero") = CheckBox5.Checked
dr(16) = ""
dr(18) = "0"
dr(19) = "false"
dr(23) = ""
dr(24) = ""
dr(25) = ""
dr(34) = "01/01/1900"
dr(35) = "false"
dr(37) = "false"
dr(40) = "0"
dr(41) = "0"
dr(42) = "0"
dr(44) = "false"
Try
dt.Rows.Add(dr)
dt.AcceptChanges()
adapterss.Update(dt)


Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

__________________
La imaginacion es mas importante que el conocimiento...

Patricio Nerio