请问如何将数据库表的一条记录中的一项赋值给一个变量

Question

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()
          Dim a as String = MyDataSet.GetString(0)
          Dim B as String = MyDataSet.GetString(1)
        End While

Answer 1

你得到DataRowCollection后，循环：
  foreach (DataRow dr in myDataRowCollection)
  {
     myValue=dr["your_field"];
     ...
  }

Answer 2

同意net_lover(孟子E章) 方法