Terminating ADODB.Connection

[KevinWilliams]

Hi,
I was wondering if there is a way to terminate a ADODB.Connection early.

I have a piece of code that connects to a server.
I want to have a Cancel button to abort the connection attempt (in case the user changes his/her mind or provided a bad IP)
Note: ConnectToServer is already in a Thread to avoid cn.open from freezing the form.

Private Function ConnectToServer() As Boolean
        Try
            Dim cn as New ADODB.Connection
            cn.Open(connectionString)
            Return True
        Catch
            ' catch nothing
        End Try
        Return False
     End Function

Thanks!

*edit: I know I could set the ConnectionTimeout, but I want to have the connection attempt stopped once the user to be able to clicks the Cancel button