追加400分！求高手仔细教我怎样用VB访问SQL数据库！

参考下我的回答
http://zhidao.baidu.com/question/97212844.html
'访问数据库
Public Function bupt(Optional sql As String) As ADODB.Recordset '定义函数bupt
On Error GoTo myerr:
Dim cn As New ADODB.Connection '定义一个ADO的数据库连接
Dim rs As New ADODB.Recordset '定义一个ADO的数据库记录的集合,保存sql语句结果
Dim rs1 As New ADODB.Recordset
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=study;Data Source=(local)"
'给ADO传输句柄连接数据库
cn.Open '打开数据库
Set rs = cn.Execute(sql) '此语句返回一个SQL语句执行后的结果，把结果赋值给rs
Set bupt = rs '赋值
Exit Function
myerr:
Debug.Print "access database error"
MsgBox "数据库访问失败，请检查数据库设置！"
End Function
简单使用