[RESOLVED] Connection will not close in .net

[Mikey]

As I watch in MySql Admin connections to server, I see the connection get made but it never disconnects. Is this different from VB6?

Thanks

 Private Sub WorkerThread1_EnterEvent(ByVal sender As System.Object, ByVal e As AxVBVoiceLib._WorkerThreadEvents_EnterEvent) Handles WorkerThread1.EnterEvent
        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        conn = New ADODB.Connection
        rs = New ADODB.Recordset
        conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=ahmsys;UID=root;PWD=abc;"
        conn.Open()
        rs.Open("SELECT * FROM tenants WHERE ten_pin = '" & intPinNo & "'", conn)
        If rs.EOF Then
            lblValue.Text = "Invalid Pin Number"
        Else
            lblValue.Text = "Found Pin Number"
        End If
        rs.Close()
        rs = Nothing 
        conn.Close()
        conn = Nothing
    End Sub