VB中有多少种数据存法

连数据库吗，2种，ADOBO
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") = "