登陆认证...

Question

Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Connection
cnn.Open "driver={SQL Server};server=" & 放数据库的机器名 & ";" & "uid=sa;pwd=数据库密码（如果没设就为空）;" & "database=数据库名称"rst.Open "select 密码 from user where 登录名称(你自己设置的记录人名的字段)=登陆人员名称", cnn, adOpenKeyset, adLockOptimistic, adCmdText

Answer 1

说明：以上代码中“密码”、“登录名称”分别为你在数据库中用于存放人员名称和登陆口令的两个字段名