Visual Basic.NET - Ayuda con bases de datos de Access

Hola, me preguntaba si alguien me puede ayudar a crear un formulario con datos de una base de datos de access. En este formulario yo quiero los botones de primer registro, registro anterior, siguiente registro y ultimo registro, así como los de agregar, modificar, eliminar y buscar registro.
Además yo quiero que este formulario se abra en red... no se si eso sea muy complicado.

Gracias de antemado y saludos

Hay k leer un poquito antes de hacer este tipo de preguntas, esta en varias parte la solucion.. incluso aki... anda a

http://www.lawebdelprogramador.com/cursos/vbnet2003/

en la cuarta entrega esta esta solucion, aki tienes algo de ayuda.

'Variables Globales
Public CN As New ADODB.Connection
Public RSBusca As New ADODB.Recordset
Public Busca As ADODB.Fields = RSBusca.Fields

'Conectarse a la BD por modulo
Public Sub AbrirBase()
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BD.mdb;"
Try
CN.Open()
Catch ex As Exception
Resp = CN.Errors.Count
If Resp <> 0 Then
MsgBox("ERROR: No se logro la Conexión", MsgBoxStyle.Critical, "Error de Conexión")
Application.ExitThread()
End If
End Try
End Sub

'Recorrer la tabla
Public Sub AbrirBusqueda()
With RSBusca
.ActiveConnection = CN
.CursorType = CursorTypeEnum.adOpenKeyset
.LockType = LockTypeEnum.adLockOptimistic
.Open("Select * from TABLA")
End With
End Sub

'Cierrra base
Public Sub CerrarBase()
Try
CN.Close()
Catch ex As Exception
MsgBox("ERROR: No se logro el Cierre de Conexión a la Base de Datos, ya que la Base de Datos NO Esta Abierta o NO se Halló", MsgBoxStyle.Critical, "Error de Cierre de Conexión")
Application.ExitThread()
End Try
End Sub

Public Sub CerrarBusqueda()
RSBusca.Close()
End Sub

'En el form para llenar un listbox y para llenar textbox

Sub LlenarControles(ByVal Nombre As String)
RS.MoveFirst()
While (Nombre <> CStr(Campo.Item(0).Value))
If Nombre = CStr(Campo.Item(0).Value) Then
Exit While
End If
RS.MoveNext()
End While
Me.txtNombre.Text = CStr(Campo.Item(0).Value)
Me.txtDireccion.Text = CStr(Campo.Item(1).Value)
Me.txtDistrito.Text = CStr(Campo.Item(2).Value)
Me.txtTelefono.Text = CStr(Campo.Item(3).Value)
Me.txtFecNac.Text = CStr(Campo.Item(4).Value)
Me.txtSexo.Text = CStr(Campo.Item(5).Value)
Me.txtPeso.Text = CStr(Campo.Item(6).Value)
End Sub

Silla