Catch ex As Exception
MsgBox(ex.Message)
End Try

Imports System.Data.Odbc
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myConnString As String
        Dim mySelectQuery As String
        myConnString = txtConnStr.Text
        Dim myConnection As New OdbcConnection(myConnString)

        mySelectQuery = txtSQL.Text

        Dim myCommand As New OdbcCommand(mySelectQuery, myConnection)
        Dim i As Int32
        Dim sTemp As String
        Dim sTemp2 As String

        ListBox1.Items.Clear()
        Try
            myConnection.Open()
            Dim myReader As OdbcDataReader = myCommand.ExecuteReader()

            While myReader.Read()
                For i = 0 To myReader.FieldCount - 1
                    Select Case myReader.Item(i).GetType().ToString
                        Case "System.TimeSpan"
                            Dim sTimeSpan As TimeSpan
                            sTimeSpan = myReader.Item(i)
                            sTemp2 = sTimeSpan.ToString

                        Case "System.DBNull"
                            sTemp2 = "null"
                        Case Else
                            sTemp2 = CStr(myReader.Item(i))
                    End Select

                    If i = 0 Then
                        sTemp = sTemp2
                    Else
                        sTemp = sTemp & ", " & Trim(sTemp2)
                    End If
                Next
                ListBox1.Items.Add(sTemp)
                sTemp = ""
            End While
           ' always call Close when done reading.
            myReader.Close()
            ' always call Close when done with connection.
            myConnection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub