SQL 如下
  " SELECT " & vbCrLf & _
  "   ID_NO, " & vbCrLf & _
  "   AA, " & vbCrLf & _
  "   BB, " & vbCrLf & _
  "   CC, " & vbCrLf & _
  "   DD, " & vbCrLf & _
  " FROM " & vbCrLf & _
  " table_dual "

以上SQL會返回DataSet資料

從DataSet中獲取資料可以有兩種方式

第一種——利用列明取得資料

Dim ds As DataSet

ds=xxxxxxxxxxx(呼叫SQL方法)

If ds.Tables(0).Rows.Count > 0 Then

   With ds.Tables(0).Rows(0)
       'IDNO
       idNoTxt.Text = String.Concat(.Item("ID_NO"))
       'AA
       Dim AA As String = String.Concat(.Item("AA"))
   End With
End If

第二種——利用DataRow取得資料,index從零開始，要注意列的排列順序

Dim ds As DataSet

ds=xxxxxxxxxxx(呼叫SQL方法)

For Each dr As DataRow In ds.Tables(0).Rows
       'IDNO
       idNoTxt.Text = String.Concat(dr(0))
       'AA
       Dim AA As String = String.Concat(dr(1))
Next