VB中如何把access中的倆個字段的值進行相加？

‘先在工程引用'MircosoftActiveXDataObjects

’然后寫代碼（前提是已經裝好access）

DimrstempAsADODB.Recordset

DimstrCNNAsString,strSQLasString

Dimrecord1,record2

Setrstemp=NewADODB.Recordset

strCNN="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\kkk.mdb";PersistSecurityInfo=True;"

strSQL="select*frommyTable"'查詢位于d:\kkk.mdb的access中的myTable表的所有記錄

rstemp.OpenstrSQL,strCNN

'----------------------------------

'在這里插入你的代碼，查詢的結果已經讀入到rstemp中了

‘假設kkk.mdb里的mytable表中有ID，Name這兩個字段

ifnotrsbook.EOFthen'如果記錄指針不在結束標記的位置，即如果表里面有記錄，記錄不為零的話

record1=rstemp.Fields(0)'字段ID的第一條記錄的值

record2=rstemp.Fields(1)‘字段Name的第一條記錄的值

rstemp.MoveNext‘移到下一條記錄

record1=rstemp.Fields(0)'字段ID的第二條記錄的值

record2=rstemp.Fields(1)‘字段Name的第二條記錄的值

endif

’申此類推，可用循環來讀取所有記錄，只要判斷rsbook.EOF標記是否為true就能知道是否已經到了結尾處

'----------------------------------

Setrstemp=Nothing

EndFunction