Set Conn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Conn.Open"DSN=FBMP;UID=fbmp;PWD=fbmp;APP=QuickTestProfessional;WSID=FBMP;DATABASE=FBMP"
‘userid/password,是登陆数据库的用户名和密码，DSN是数据源,DATABASE是数据库名
Rs.Open"select DC_CODE from MENUS_DEPARTMENT_CLASS",Conn '后面可以加上参数表示打开的方式
Rs.movefirst
While not rs.eof
MsgBox(Rs("DC_CODE").value)
Rs.movenext
wend
Rs.Close
Conn.Close
Set Rs = nothing
Set Conn = nothing
记录集对象的方法：
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.absoluteposition=N 将记录指针移到数据表第N行
rs.absolutepage=N 将记录指针移到第N页的第一行
rs.pagesize=N 设置每页为N条记录
rs.pagecount 根据 pagesize 的设置返回总页数
rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
rs.delete 删除当前记录，但记录指针不会向下移动
rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录
PS:如果想做成函数,要注意VBS的函数返回不是用RETURN哦,
function test(ByVal x,ByVal y)
Dim z
z = x + y
test = z
End function
