Terminating ADODB.Connection

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.

VB Code:

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

You can use the .Cancel method to cancel your .Open action but only for an asynchronous method call invoked with the adAsyncConnect, adAsyncExecute, or adAsyncFetch option.