HACER REGISTRO CON VB2008

¿CÓMO HACER UN REGISTRO CON BASE DE DATOS ACCESS Y VISUAL BASIC 2008?
'TODO LO QUE ESTÉ EN NEGRITAS Y COLOR GUINDA TIENE QUE SER CAMBIADO POR LOS NOMBRES QUE TIENES, (NOMBRE DE TABLA, NOMBRE DE BASE DE DATOS, NOMBRE DE LOS TEXTBOX, LOS NOMBRES DE LOS BOTONES....)
'Tenemos que agregar al principio de el código la siguiente sentencia:
--------------------------------------
Imports System
Imports System.Data
Imports System.Data.OleDb
---------------------------------
Public Class Form1

Public cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=NOMBREdeBASEdeDATOS.accdb;Persist Security Info=False")
Public fila As Integer, fila2 As Integer
Public ds As New DataSet
Dim nombres, apellidos As String
------------------------------------------------

'Crearemos una conexión donde se ubica nuestra tabla donde almacenaremos los registros que realicemos

Sub Conexion()

ds.Clear()
Dim adaptador As New OleDbDataAdapter("Select * From Nombre_de_tabla", cn)
cn.Open()
adaptador.Fill(ds, "Nombre_de_tabla")
cn.Close()
End Sub
-----------------------------------------------------------------------------------------
'EL SIGUIENTE ES EL CODIGO QUE IRÁ EN EL BOTÓN PARA GUARDAR A LA BASE DE DATOS
Private Sub NOMBREdeBOTON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOMBREdeBOTON.Click



Try
If TEXTBOX1.Text = "" Or TEXTBOX2.Text = "" Then
MsgBox("Ingrese Datos Necesarios", 64, "Mensaje")


ElseIf TEXTBOX1.Text = "" Or TEXTBOX2.Text = "" Then

Dim cmd As New OleDbCommand("Insert Into NOMBREdeTABLA(COLUMNA1,COLUMNA2) Values('" & TEXTBOX1.Text.Trim & "','" & TEXTBOX2.Text.Trim "')", cn)
Conexion()
cn.Open()
cmd.ExecuteNonQuery()

MsgBox("Su registro ha sido insertado con éxito", 64, "Mensaje")
fila = fila2 - 1
End If
Catch ex As Exception
MsgBox(ex.Message, 16, "Error")
Finally
cn.Close()

End Try
End If

End Sub


NOTA: PARA ESTO NECESITAS TENER:
2 BOTONES.
2 TEXTBOX
LA BASE DE DATOS CON 2 COLUMNAS,