Çë°ïÎÒ½â¶ÁÕâƪ´úÂ루ÊǹØÓÚvbÓëaccessµÄÁ¬½Ó£©

Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.MDB;"                '½¨Á¢Á¬½Ó
  Set RS = New Recordset
  RS.Open "select * from aaa", db, adOpenStatic, adLockOptimistic                  '´ò¿ª¼Ç¼¼¯
'==============¶Á³öËùÓмǼ==============
  rs.MoveFirst
  Do While Not rs.EOF
  Print rs("aa"), rs("bb"), rs("cc")
  rs.MoveNext
  Loop

'==============¶Á³öbbÁеÄËùÓÐÄÚÈÝ========
rs.MoveFirst
Do While Not rs.EOF
  Print rs("bb")
  rs.MoveNext
  Loop

'==============Ìí¼ÓмǼ===========
rs.AddNew
rs("aa") = "a4"
rs("bb") = "b4"
rs("cc") = "c4"
rs.Update
'==============¸ü¸ÄÒ»Ìõ¼Ç¼========
rs.MoveFirst
Do While Not rs.EOF
  If rs("aa") = "a2" Then
  rs("aa") = "a22"
  rs("bb") = "b22"
  rs("cc") = "c22"
  rs.Update
  Exit Do
  else
&nb