Visual Basic - Conexion con base de datos.

Hola a tod@s, tengo el siguiente problema

Tengo creada una base de datos en acces con una tabla tipo "ingresos" (efecitvo,tarjeta,etc) y un formulario en visual basic donde en unas cajas de texto se deberian introducir los datos y mediante un Cbutton guardarlos en la base de datos, he intentando todo lo "poco" que se, todo lo que he leido por internet asi como la ayuda de varios de vosotros y no lo consigo......se que algo me dejo.....estoy usando visual basic express 2005....se que hay algun paso que me salto o hago mal pero no lo detecto....

Si alguien me pudiera explicar como hacerlo paso a paso "como si fuera un niño pequeño" porque de verdad que esto me esta volviendo loco perdido.......

Gracias a tod@s por vuestro tiempo y dedicacion.

EJEMPLO DE CONEXION A SQLSERVER 2005 DESDE VISUAL VASIC 2005 EXPRESS

En un modulo

Imports System.Data.OleDb

Module Modulo

Public Conectar As OleDb.OleDbConnection
Public Ejecutar As New OleDb.OleDbCommand
Public Adaptador As New OleDb.OleDbDataAdapter
Public Objeto As New DataTable
Public Cadena As String
Public Sql As String

Sub SqlServerNet()
'*
'Cadena de Conexión:
Cadena = "Provider=SQLOLEDB; " & _
"Initial Catalog=Prueba; " & _
"Data Source=SERVIDOR; " & _
"Integrated Security=SSPI; persist security info=False;"
'*
'Asignar Cadena al Objeto OleDbConnection:
Conectar = New OleDb.OleDbConnection(Cadena)
'*
'Tratamiento de errores:
Try
Conectar.Open()
MessageBox.Show("BIENVENIDO AL SISTEMA :" & vbCrLf & vbCrLf & "CONEXION EXITOSA LA SERVIDOR.", "CONEXION AL SERVIDOR : ( SQL SERVER. )", MessageBoxButtons.OK, MessageBoxIcon.Information)
Conectar.Close()
Catch MiError As Exception
MessageBox.Show("ERROR DE CONEXION :" & " " & Err.Description, "ERROR DE CONEXION :", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
Conectar.Dispose()
End Try

End Sub
End Module

En el formulario: EJEMPLO EN UN BOTON GRABAR

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'*
If TextBox1.Text = "" Then
MessageBox.Show("INGRESE EL RUBRO.", "ATENCION USUARIO :", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TextBox1.Focus()
Exit Sub
End If
'*
'Tratamientos de errores:
Try
'Asignar cadena de conexión al objeto OleDb.OleDbConnection:
Conectar = New OleDb.OleDbConnection(Cadena)
'*
'Abre la conexión:
Conectar.Open()
'*
'Sentencia Insert Into:
Sql = "Insert Into Rubros Values ('" + TextBox1.Text + "')"
'*
'Le pasa como parámetro la variable Sql
'al objeto OleDb.OleDbCommand
Ejecutar = New OleDb.OleDbCommand(Sql, Conectar)
'*
'Ejecuta el Insert Into:
Ejecutar.ExecuteNonQuery()
'*
TextBox1.Text = ""
TextBox1.Focus()
'*
'Si no hubo error entonces:
MessageBox.Show("LA OPERACION SE REALIZO CON EXITO.", "INFORMACION DEL SISTEMA :", MessageBoxButtons.OK, MessageBoxIcon.Information)
'*
'Cerrar:
Conectar.Close()
Adaptador = Nothing
'*
'Si hubo error entonces:
Catch MensajeError As Exception
MessageBox.Show("ERROR :" & " " & Err.Description, "ERROR :", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
Conectar.Dispose()
End Try
'*
End Sub