有关vb制作登陆框的一些问题?

[liuyi3000]

功能:
1.可以注册新用户
2.用户在输入帐号密码后判断它的帐号和密码分别是对是错并用msgbox提示

我希望各位能给我完整的代码
QQ:174453914
E-mail:[e-mail]

[aiur2000]

Set rs = New ADODB.Recordset
txtSQL = "select * from pfm_user where usercard='" & txtUsername & "'"
Set rs = ExecuteSQLTWO(txtSQL, MsgText) '连接函数，具体可以自己写
If Not rs.EOF Then
If rs!userpwd = txtPassword Then '确认帐号
frmmain.show
unload me
exit sub
else
msgbox "密码错误！"
exit sub
endif
else
msgbox "无此用户！"
endif

[feilong215]

如上

[liuyi3000]

可以换成INI的文件放吗？