高手 用VB 怎么连接数据库啊

连接access数据库的：

dim cn as adodb.connection

dim rs as adodb.recordset

dim x as string

x="select * from userdata where username = text1.text and password=text2.text"  'userdata是你存放用户帐号密码的数据表，username和password是数据表里的存放帐号密码的字段名

set cn = new adodb.connection

cn.open "provider=microsoft.jet.oledb.4.0;data source=d:\db1.mdb;"   '这里的db1.mdb是你的数据库文件

set rs = new adodb.recordset

rs.open x,cn,adopenforwardonly,adlockoptimistic

if rs.eof then

  msgbox "帐号或密码错误！"

else

  (这里是帐号密码验证成功后的执行代码)

end if

rs.close

cn.close

set rs = nothing

set cn = nothing

标签：VB,数据库,高手