Comprobor estado conexión SqlServer Compact

[Highlander]

Hola lo que quiero hacer es que si ejecuto esta función me habra o cierre la conexion segun su estado, pero al invocarlo mas de una vez en vez de cerrarme la conexion me aparece el error:

There is a file sharing violation. A different process might be using the file

Código:

Public Sub Conexion()

        'Abre una conexion con la base de datos si es que no hay una ya abierta.

        Dim connectionString As String
        Dim fileName As String = "|DataDirectory|\VetCon2010DB.sdf"
        Dim password As String = "vetcon1981"

        'string conexion sql server compact
        connectionString = String.Format("Persist Security Info = False; DataSource={0}; Password={1}; File Mode = 'shared read';", fileName, password)

        Dim conexionSql As New SqlCeConnection(connectionString)  'creo el objeto de conexion

        If conexionSql.State = ConnectionState.Closed Then

            conexionSql.Open()
            MessageBox.Show("conexion establecida")

        ElseIf conexionSql.State = ConnectionState.Open Then

            conexionSql.Close()
            MessageBox.Show("conexion terminada")

        End If

    End Sub

Cualquier sugerencia es bienvenida.