Error -2147467259 en tiempo de ejecución

[jorgegetafe]

Este es todo el código que tengo para conectar con la base de datos, luego tengo otras muchas más funciones pero esas no dan error.

He probado a cerrar la conexión y sigue dando el mismo problema.

Por favor, si me podeis ayudar, estoy muy verde en esto.

Código:

Public Class BDDContactos
    Implements IContacto

    Private conexion As New OleDb.OleDbConnection
    Private objcontacto As claseContacto

    Public Sub New()
        Try
            conexion.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; Data Source= BDContactos.mdb" 'Cadena de conexión
                      conexion.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try
    End Sub

  
End Class