Imports System.Data.Odbc
 
Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim myConnection As OdbcConnection = New OdbcConnection()
        myConnection.ConnectionString = "Dsn=epic;uid=SYSPROG;host=server4;port=8350;db=mfgsys803"
 
        myConnection.Open()
 
 
        Dim cmdtxt As String
        ' Dim no As Integer
        Dim myCommand As New OdbcCommand()
 
        'Try
        '    conection.Open()
        'Catch ex As Exception
 
        'End Try
        myCommand.Connection = myConnection
        Dim myAdapter As New OdbcDataAdapter
 
 
 
        cmdtxt = "SELECT pub.Part.PartNum, pub.Part.ClassID FROM   PUB.Part Part WHERE  pub.Part.PartNum='50101001'"
 
        'cmdtxt = "SELECT pub.Part.PartNum FROM pub.Part"
 
        MessageBox.Show(cmdtxt)
 
 
        myCommand.CommandText = cmdtxt 'start query
        myAdapter.SelectCommand = myCommand
 
        Dim moddata As OdbcDataReader
 
        moddata = myCommand.ExecuteReader()
 
 
        While moddata.Read = True
            Try
                MessageBox.Show(moddata(1))
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End While
 
        moddata.Close()
 
 
        myConnection.Close()
 
    End Sub
End Class