Visual Basic problema en conexión - Error no especificado

[andrea55]

Estoy haciendo un programa en Visual Basic con base de datos access, al iniciar el programa se conecta perfectamente a la base, pero al cabo de un tiempo de realizar diferentes acciones en el programa me salta el siguiente error:

La excepcion me marca "Error no especificado"

la unica diferencia que encuentro cuando lo debagueo en la variable "con" es que cuando se cae me dice en Server Version: Operacion no válida se ha terminado al conexión.
en las veces anteriores que se conecta correctamente no dice eso.


No es siempre realizando las mismas acciones me marca el error si no que parece como si luego de hace x numero de acciones la conexion dejara de funcionar, alguien podria ayudarme a encontrar el motivo?

Código:

Protected Function Conectar() As OleDbConnection
        Dim con As OleDbConnection = Nothing
        Try
            con = New OleDbConnection
            con.ConnectionString = "PROVIDER = Microsoft.Jet.OleDB.4.0;" _
                                    & "Data Source=" & My.Settings.rutaBD & "\" _
                                    & My.Settings.nombreBD
            con.Open()
            Return con
        Catch ex As Exception
            MostrarErrorCritico(" No fue posible conectarse con la base " & ex.Message)
            Return Nothing
        End Try
    End Function