รบกวนสอบถามเรื่องการดึงข้อมูลจากฐานข้อมูลมาใส่ใน DataTable

 Private Function DataTable1() As DataTable
        Dim dataRow As DataRow = Nothing
        Dim dt1 As New DataTable()
        dt1.Columns.Add("Id")
        dt1.Columns.Add("Name")

        dataRow = dt1.NewRow()
        dataRow("Id") = "001"
        dataRow("Name") = "นายดี วันทอง"
        dt1.Rows.Add(dataRow)
        dataRow = dt1.NewRow()

        dataRow("Id") = "002"
        dataRow("Name") = "นายไทย ใจดี"
        dt1.Rows.Add(dataRow)
        dataRow = dt1.NewRow()

        dataRow("Id") = "003"
        dataRow("Name") = "นายมอง ไม่มี"
        dt1.Rows.Add(dataRow)
        dt1.AcceptChanges()
        Return dt1
    End Function