Hola a todos,tengo el siguiente código:

Dim cmd As New OleDbCommand("Select * from Appointments", cn)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)

Dim b As New OleDbCommandBuilder(da)
da.InsertCommand = b.GetInsertCommand
da.DeleteCommand = b.GetDeleteCommand
da.UpdateCommand = b.GetUpdateCommand

Dim Contactos As DataTable = DS1.Tables("Appointments")
da.Update(Contactos)
da.Dispose()

pero al ejecuarlo no me inserta los datos nuevos que he metido.
¿Alguien me podria echar una mano?.Muchas gracias de antemano.

__________________
Solo la espupidez humana pude acabar con la humanidad