No se me actualiza la BD - VB.net

Me estoy iniciando VB.NET y estoy atascado con las Bases de Datos.
(Como hecho de menos VB6). Espero me puedas ayudar.
Estoy usando Visual Basic Express 2008. Quiero mediante sólo código
Manipular una Base de Datos de Access 2007.
Es un mini programilla solo con las declaraciones imprescindible para funcionar.
Todo me va bien, me pilla las altas, las modificaciones, bajas,
pero no encuentro el modo de actualizar la Base de datos por más que he buscado.
La mayoría de los ejemplos deben ser de otra versión de VB porque me dan errores.
Te dejo el código haber si me lo puedes corregir. Gracias.
Dim MiConexion As OleDb.OleDbConnection
Dim MiDataAdapter As OleDb.OleDbDataAdapter
Dim MiDataSet As DataSet
Dim MiDataTable As DataTable
Dim MiDataRow As DataRow
Dim MiPath As String
Dim MiBD_Access As String
Dim StrConexion As String
Dim MiSql As String
Dim Fila As Integer
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Load
MiBD_Access = "\BD_2007.accdb"
MiPath = CurDir()
StrConexion = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= _
" & MiPath & MiBD_Access & ";Persist Security Info=False")
MiConexion = New OleDb.OleDbConnection
MiConexion.ConnectionString = StrConexion
MiConexion.Open()
MiSql = "Select Cod, Titulo from Tabla1 ORDER BY COD"
MiDataAdapter = New OleDb.OleDbDataAdapter(MiSql, MiConexion)
MiDataSet = New DataSet
MiDataAdapter.Fill(MiDataSet)
MiDataTable = New DataTable
MiDataAdapter.Fill(MiDataTable)
Dim Micommandbuilder As New OleDb.OleDbCommandBuilder(MiDataAdapter)
Fila = 1
Dim MidataRow As DataRow = MiDataTable.Rows(Fila)
MidataRow.Delete()
MiDataAdapter.Update(MiDataSet)
MiDataTable. AcceptChanges()
Miconexion. Close()
End Sub