Yo uso la siguiente funcion...
Código:
Dim Conexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\tubasededatos.mdb;")
Luego cuando nececites abrir la conexion a la base de datos colocas...
y para cerrar...