VB使用ADODB操做数据库

下面是我所掌握的使用ADO对数据库操做的一些常用方法，主要是提供给初学者做为参考，有不对的地方请指正。如有补充不胜荣幸
准备工做
========
来源：www.va1314.com/bc
Dim conn As New  ADODB.Connection  '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行
Dim rs As ADODB.Recordset    '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因而没必要在这里使用
Dim CnStr As String, Sql As String  '创建两个字符串变量分别存放两个集合的SQL语句代码段
1、装载数据库(不属于Recordset集合)
=============
Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$
'以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操做员用户名、操做员密码
FileName = App.Path & "'数据库名'"
DbIp = "数据库地址"
DbName = "数据库名"
DbUser = "数据操做员用户名"
DbPw = "操做员密码"
'以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量
'1)连接Access数据库:
'-------------------
CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileName & ";Jet OLEDB Database Password=" & DbPw
'2)连接Oracle数据库:
'-------------------
CnStr = "PROVIDER=MSDAORA.1 Password=" & DbPw & ";User ID=" & DbUser & ";Data Source=" & FileName & "Persist Security Info=True"
'其中:
'PASSWORD:      密码
'User ID:       用户号
'Data Source:   数据库名
'Persist Security Info:
'Provider:
'3)连接VF的DBF库:
'----------------
CnStr = "PROVIDER=MSDASQL.1 Persist Security Info=False;Driver={Microsoft Visual FoxPro Driver};UID=" & DbUser & ";SourceDB=" & FileName &
";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"
'4)连接SQL的数据库
'------------------
CnStr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=" & DbUser & ";pwd=" & DbPw & ";DRIVER=SQL Server;DATABASE=" & DbName & ";WSID=GQSOFT;SERVER=" &
DbIP
'也能够使用这段简易代码 CnStr = "Provi