执行完SqlDbCommand.ExecuteReader()后,如何得到SqlDbDataReader中的每字段的数据?

Question

If strID <> "" Then
        strSQL = "SELECT Title,Author,Source,pid,Content FROM Document Where objectGuid='" + strID + "'"
        cn.Open()
        Dim MyDataSet As OleDbDataReader
        cmd = New OleDbCommand(strSQL, cn)
        MyDataSet = cmd.ExecuteReader()
        While MyDataSet.Read()
          DocTitle.Text = MyDataSet.GetString(0)
          Author.Text = MyDataSet.GetString(1)
          Company.Text = MyDataSet.GetString(2)
          DocGuid.Value = strID
          DocContent.Text = MyDataSet.GetString(4)
          Dim i As Integer
          For i = 0 To SubjectID.Items.Count - 1
            If SubjectID.Items(i).Value = MyDataSet.GetValue(3) Then
              SubjectID.Items(i).Selected = True
            End If
          Next
        End While
        MyDataSet.Close()
        cn.Close()
      End If

Answer 1

OleDbDataReader可以换成SqlDbDataReader，我用acess做的