vb操作sql数据库

访问数据库
Public Function SQL(sql As String) As ADODB.Recordset '定义函数SQL
On Error GoTo myerr:
Dim cn As New ADODB.Connection '定义一个ADO的数据库连接
Dim rs As New ADODB.Recordset '定义一个ADO的数据库记录的集合,保存sql语句结果

Debug.Print sql '用于显示sql语句

Set cn = New ADODB.Connection '设置数据库连接句柄，即连接字符
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=StuManagemenat;Data Source=(local)"
'给ADO传输句柄连接数据库

cn.Open '打开数据库

Set rs = cn.Execute(sql) '此语句返回一个SQL语句执行后的结果，把结果赋值给rs
'cn.Execute sql 此语句只是执行SQL语句
Set SQL = rs '赋值
Exit Function
myerr:
Debug.Print "access database error"
MsgBox "数据库访问失败，请检查数据库设置！"

End Function
程序开启时加载上面函数
要用时只要(查询为例)
sql="select * from tablename "
Set rs = SQL(s