vb如何用sql连接验证帐号密码，顺便说下方法。

dim conn as now adodb.connection 注释：连接数据库
dim rs as now adodb.recordset 注释：接一个值
dim sql as string
dim name as string 注释：帐户名
dim mima as string 注释：密码
name=text1.text
mima=text2.text
conn.conectionstring=("连接数据库的路径") 注释：连接数据库
conn.open
sql="select count(*) from 数据库名称 where uname='"& name &"'and mima='"& mima &"'" 注释：数据库查询
set rs=conn.execute(sql) 注释：记录数据库的查询值
if rs(0)>0 then
msgbox"登陆成功" 注释：如果有就是大于0 说明帐户密码都正确
else
msgbox"登陆失败" 注释：如果有就是等于0 说明帐户或密码不正确或不存在
end if

下面是数据库连接的代码，包含：Access、SQL Server、Oracle三种数据库连接方法：

Function CreateDbConnect(SERVER As String, uID As String, PWD As String, Optional DBName As String = "", Optional dbtype As Integer = 1, Optional err_text As String = "") As ADODB.Connection
On Error GoTo ErrH

Dim objDB As New