MySQL, testa connection?

Hej, jag försöker hitta nått som kan testa om en connection funkar...

använder denna kod för att öppna en connection till en MySQL databas:

Private Sub Command1_Click()
Dim cnMySql As New rdoConnection
Dim rdoQry As New rdoQuery
Dim rdoRS As rdoResultset

If server.Text = Empty Then
fel.Text = "Du måste ha en server."
ElseIf username.Text = Empty Then
fel.Text = "Du måste ha ett användarnamn."
ElseIf password.Text = Empty Then
fel.Text = "Du måste ha ett lösenord."
ElseIf databas.Text = Empty Then
fel.Text = "Du måste ha en databas."
Else

End If

cnMySql.CursorDriver = rdUseOdbc
cnMySql.Connect = "uid=" & username.Text & ";pwd=" & password.Text & ";server=" & server.Text & ";" & _
    "driver={MySQL ODBC 3.51 Driver};database=" & databas.Text & ";dsn='';"

cnMySql.EstablishConnection

With rdoQry
    .Name = "selectUsers"
    .SQL = "select * from auktioner"
    .RowsetSize = 1
    Set .ActiveConnection = cnMySql
    Set rdoRS = .OpenResultset(rdOpenKeyset, rdConcurRowVer)
End With
    
txtMySQL.Text = ""

Do Until rdoRS.EOF
    With rdoRS
        txtMySQL.Text = txtMySQL.Text & !auktionsnamn & " - " & !slutar & vbCrLf
            
        rdoRS.MoveNext
    End With
Loop
    
rdoRS.Close
cnMySql.Close
End Sub

Jag vill testa om den lyckas få kontakt med databasen, annars så ska en popup komma upp och säga att det inte funkar och avbryter anslutningen...

Funkar det?

Tack på förhand