跪求高手帮忙 （好急）SQL与VB连接问题

Private Sub cmdOK_Click()
Dim i As Integer
If ConnectSQL(txtUserName.Text) = True Then
MsgBox "连接成功", 64
Else: MsgBox "服务器连接失败", 16
End If
USESQL ("select useid,password from userInfo")
Do Until Rsbdata.EOF
If txtuid = Rsbdata.Fields(0).Value And txtpwd = Rsbdata.Fields(1).Value Then
MsgBox "连接成功", 64
frmLogin.Hide
ElseIf txtuid = "" Then
MsgBox "请输入用户名", 16
txtuid.SetFocus
ElseIf txtpwd = "" Then
MsgBox "请输入密码", 16
txtpwd.SetFocus
ElseIf txtuid = "" And txtpwd = "" Then
MsgBox "请输入用户名和密码", 16
txtuid.SetFocus
Else: MsgBox "用户名或密码错误", 16
txtuid.SetFocus
End If
Rsbdata.MoveNext
Loop
End Sub

这是我程序的LOGIN窗体 它作用是连接SQL和验证用户名和密码
ConnectSQL（IP地址）函数是连接SQL函数
编译运行 输入用户名密码后按OK后
提示连接成功
但用户名密码错误 。
想不通 SQL SERVER里有相关记录 连接正

跪求高手帮忙 （好急）SQL与VB连接问题 急！SQL高手帮忙？ 求SQL高手帮忙 SQL题目高手帮忙！急！ 跪求高手帮忙翻译！！（急）！ 关于sql server 急 高手请帮忙 急!!!!跪求高手帮忙! 急求一个sql语句，请高手帮忙。可行的加100分 急求高手帮忙 求高手帮忙~!~!急~!