เรียกข้อมูลจากฐานด้วย DataTable ผ่านObject คลาส

Imports System.Data.SqlClient

Public Class MyClassExecuteData

    Dim connectString As String = ConfigurationManager.ConnectionStrings.Item(("MyConnectionString")).ConnectionString

    Public Function GetDataTable(SQL As String) As DataTable

        Dim tag As New StringBuilder

        Dim query As String = SQL.ToString

        Dim t1 As New DataTable()

        Using conn As New SqlConnection(connectString)

            conn.Open()

            Dim cmd As New SqlCommand(query, conn)

            Using a As New SqlDataAdapter(cmd)

                a.Fill(t1)

            End Using

            conn.Close()

        End Using

        Return t1

    End Function

End Class

*************************** การใช้งาน *****************************************
Function getData(UserName As String) As Boolean

Dim obj As New MyClassExecuteData

Dim t1 As DataTable = obj.GetDataTable("SELECT * FROM register WHERE username = '" & UserName & "' ")

For Each row As DataRow In t1.Rows

     ltrregUserName.Text = row("regUserName").ToString

     txtPassword.Text = row("regPassword").ToString

     txtregFirstName.Text = row("regFirstName").ToString

     txtregLastName.Text = row("regLastName").ToString

Next

End Function