Imports IBM.Data.DB2.iSeries
Imports System.Data

Namespace ObjectDataHandler

    Public Class DataHandler

        Public Function GetCustomer(ByVal cusnum As Integer) As DataSet

            Dim sql As String = String.Format("select * from qiws.qcustcdt where cusnum={0}", cusnum.ToString())

            Using conn As New iDB2Connection("DataSource=M270;userid=QUSER;password=QUSER;")

                conn.Open()

                Dim da As New iDB2DataAdapter(sql, conn)
                Dim ds As New DataSet

                da.Fill(ds)

                Return ds

            End Using

        End Function

    End Class
End Namespace