ASP.NET - tengo un problema no consigo grabar datos nuevos a

tengo un problema no consigo grabar datos nuevos a la base de datos que he creado en acces aqui os dejo el codigo

'mostra datos bloqueado
Public Sub boton6()
fila = dtp.Rows.Count - 1
' mostrardatos(fila)
End Sub

Public Sub actualizar()
If fila > 0 OrElse fila > dtp.Rows.Count - 1 Then Exit Sub
Dim dr2 As DataRow = dtp.Rows(fila)
asignardatos2(dr2)
' Try
dap.Update(dtp)
dtp.AcceptChanges()
'Catch ex As DBConcurrencyException
' MessageBox.Show("Error de Concurrencia:" & vbCrLf & ex.Message)
'Catch ex As Exception
' MessageBox.Show(ex.Message)
' End Try
End Sub

Private Sub limpiar()

TextBox6.Text = ("")
TextBox7.Text = ("")
TextBox8.Text = ("")
TextBox6.Focus()

End Sub
Private Sub asignardatos2(ByVal dr2 As DataRow)
dr2("idpersona") = b + 1
dr2("nombre") = TextBox6.Text
dr2("apellido1") = TextBox7.Text
dr2("apellido2") = TextBox8.Text
MessageBox.Show("PASA POR ACA")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As String

Dim sCn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "C:\Documents and Settings\richy\Mis documentos\prueba1\bin\libros.mdb"
Dim sSe As String = "SELECT * FROM persona"
' Try
dap = New OleDbDataAdapter(sSe, sCn)
' Dim cb As New OleDbCommandBuilder(dap)
'ejecuta comando dar alta y actualizar que tiene asociado
dtp = New DataTable
dap.Fill(dtp)

''añadir nueva

Dim dr2 As DataRow = dtp.NewRow()
'llenar de chicha

dr2("idpersona") = b + 1
dr2("nombre") = TextBox6.Text
dr2("apellido1") = TextBox7.Text
dr2("apellido2") = TextBox8.Text
dtp.Rows.Add(dr2)
boton6()
If dtp.Rows.Count > 0 Then
boton6()

Else
fila = -1

End If
' Catch ex As Exception
' MessageBox.Show("Error al conectar o recuperar los datos:" & vbCrLf & ex.Message, "Conectar con la base", MessageBoxButtons.OK, MessageBoxIcon.Error)
' End Try
a = (InputBox("desea mas?"))
If (a = "S") Then
' limpiar()
actualizar()

Else
MessageBox.Show("OK GRACIAS ")

TextBox1.Focus()

MessageBox.Show(dr2("nombre").ToString)
MessageBox.Show(dr2("apellido1").ToString)
Application.Exit()
End If
End Sub
End Class