Cita:
Iniciado por jorgegetafe 
La verdad es que no
¿ Puede ser la causa ?
y por que el lugar de preguntar que si puede ser la causa, por que no lo pruebas.
Código:
Public Sub New()
Try
conexion.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; Data Source= BDContactos.mdb" 'Cadena de conexión
conexion.Open()
conexion.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub