Conectar a una base de datos access desde visual basic

[rojelio_127]

Imports system.Data
Imports system.Data.Oledb

Public Class agregardatoss

Dim SistemaConnection As OleDbConnection
Dim UsuariosCommand As OleDbCommand
Dim UsuariosAdapter As OleDbDataAdapter
Dim UsuariosTable As DataTable
Dim UsuariosManager As CurrencyManager
Dim UsuariosBuilder As OleDbCommandBuilder
Dim MiEstado As String
Dim RegActual As Integer


' este es una neuva accion en formclosing para ordenar la coneccion

Private Sub agregardatoss_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing


SistemaConnection.Close()
SistemaConnection.Dispose()
UsuariosCommand.Dispose()
UsuariosAdapter.Dispose()
UsuariosTable.Dispose()

End Sub

' aki esta la coneccion con la base de datos

Private Sub agregardatoss_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

SistemaConnection = New OleDbConnection("Provider= Microsoft.ACE.OLEDB.12.0; Data Source =" & AppDomain.CurrentDomain.BaseDirectory & "base de datos aki .accdb")
SistemaConnection.Open()
UsuariosCommand = New OleDbCommand("Select * from Usuarios ORDER BY codigo", SistemaConnection)

UsuariosAdapter = New OleDbDataAdapter()
UsuariosAdapter.SelectCommand = UsuariosCommand
UsuariosTable = New DataTable()
UsuariosAdapter.Fill(UsuariosTable)

UsuariosManager = DirectCast(Me.BindingContext(UsuariosTable), CurrencyManager)

End Sub



ahora mi duda es en agregar un usuario a la base de datos ... no c si es con


NO C si es asi



Try
If contactos.ExisteContacto(NumeroUsuario, Me.txtNombre.Text, Me.txtApellido.Text, Me.txtApodo.Text, Me.txtEmail.Text, Me.txtTelf1.Text, Me.txtTelf2.Text, Me.txtTelf3.Text) = True Then
MessageBox.Show("Este contacto ya existe", "Agenda", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.txtNombre.Text = ""
Me.txtApellido.Text = ""
Me.txtApodo.Text = ""
Me.txtEmail.Text = ""
Me.txtTelf1.Text = ""
Me.txtTelf2.Text = ""
Me.txtTelf3.Text = ""
Me.txtNombre.Focus()
Exit Sub
Else
If contactos.CrearContactos(NumeroUsuario, Me.txtNombre.Text, Me.txtApellido.Text, Me.txtApodo.Text, Me.txtEmail.Text, Me.txtTelf1.Text, Me.txtTelf2.Text, Me.txtTelf3.Text) = True Then
MessageBox.Show("Se a creado exitosamente el contacto", "Agenda", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.txtNombre.Text = ""
Me.txtApellido.Text = ""
Me.txtApodo.Text = ""
Me.txtEmail.Text = ""
Me.txtTelf1.Text = ""
Me.txtTelf2.Text = ""
Me.txtTelf3.Text = ""
Me.txtNombre.Focus()
Else
MessageBox.Show("Hubo un problema creando el contacto", "Agenda", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.txtNombre.Text = ""
Me.txtApellido.Text = ""
Me.txtApodo.Text = ""
Me.txtEmail.Text = ""
Me.txtTelf1.Text = ""
Me.txtTelf2.Text = ""
Me.txtTelf3.Text = ""
Me.txtNombre.Focus()
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Agenda", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try



o se usa las sentencias como en el mysql add :s no me sale el agregar alguien ayudeme !!!