Visual Basic.NET - Ayuda Conexion a BD de Acces

Hola foro !!

espero me puedan ayudar en mi problema, tengo estos dos codigo para conexion hacia Access
pero marca un error sobre OleDbConnection soy novato en VB Net no se NADA estoy tratando de aprender y estoy trabajando con Visual Studio 2005

Dim strConexion As String = ""
Dim miConexion As OleDbConnection = New OleDbConnection(strConexion)
Dim strComando As String = ""
Dim miComando As OleDbCommand = New OleDbCommand(strComando, miConexion)

Private cnConexion As OleDbConnection = New OleDbConnection()
Private dbaAdaptador As OleDbDataAdapter
Private dsDatos As DataSet
Private bmbEnlaceBase As BindingManagerBase
Private dbcComando As OleDbCommandBuilder

en que estoy mal ?

Gracias.

Claro que te dara un error, porque no indicas nada en strConexion

Alli debe estar el proveedor, ruta del archivo. En esta pagina estan varias cadenas de conexion a diferentes manejadores de BD :

http://www.connectionstrings.com/

AMIGO AQUI TE ENVIO UNA CADENA DE CONEXION QUE FUNCIONA A LA PERFECCION

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb
Imports System
Imports System.IO
Imports System.Collections

Public Class base
Public conexion As OleDbConnection
Public consulta As oledbdataadapter
Public operacion As OleDbCommand
Public registros As DataSet
Public ruta
Public AppPath As String = System.IO.Directory.GetCurrentDirectory()

' CONTRUCTOR
Sub New()
Try ' POR SI QUIERES EVITAR EXCEPCIONES
conexion = New OleDbConnection("Provider=Microsoft.Jet.OleDB.4.0; data source="DIRECCION BD")
conexion.Open()
Catch ex As Exception
MsgBox("Error: No se encuentra la Base de Datos",MsgBoxStyle.Critical)
End
End Try
End Sub

Public Function cerrarbd() ' FUNCION PARA CERRAR LA BD
conexion.Close()
Return 0
End Function

Public Function ejecutar_consulta(ByVal cadena As String) As Object ' FUNCION PARA REALIZAR CONSULTAS
consulta = New OleDbDataAdapter(cadena, conexion)
registros = New DataSet
consulta.Fill(registros)
Return registros
End Function

Public Function ejecutar_operacion(ByVal cadena As String) As Boolean ' FUNCION PARA REALIZAR OPERACIONES (INSERT, UPDATE, DELETE)
Dim salida
operacion = New OleDbCommand(cadena, conexion)
salida = operacion.ExecuteNonQuery()
Return salida
End Function
End Class

ESPERO TE SIRVA DE ALGO