VB ADO 连接数据库

'工程->引用->Microsoft   ActiveX   Data   Objects   2.X   Library 

Access数据库连接字符串
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=*.mdb;Persist Security Info=False"
有密码的
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=*.mdb;Persist Security Info=False;Jet OLEDB:Database Password=pwd"
注:Data Source=Access数据库所在路径
SqlServer
"driver={SQL Server}; server=SERVERNAME; pwd=PASSWORD;uid=USER;database=DATABASE"
注:server=数据库服务器路径,database=数据库名
ORACLE
"Provider=OraOLEDB.Oracle;Password=Password;User ID=User;Data Source=SourceName"
注:Data Source=本地Oracle Net服务名

'新建一个连接对象
Dim con as new ADODB.Connection
'打开连接
con.Open "连接字符串"
执行无需要返回的SQL命令
con.Execute "SQL语句"

'新建结果集对象
Dim rs as new ADODB.RecordSet
'通过某连接执行SQL语句并把结果集存入rs
rs.Open "SQL语句",con
'可以取得当前记录的某字段值
rs.Fields("字段名")
'可以移动结果集游标去指向某条记录.
rs.MoveXXX