帮帮忙吧　在登陆的时候，对于用户名的字母大小写不敏感，但对密码敏感，下边是我的代码，有哪位大虾帮我看看吧　

急啊　谢谢啊　

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
Dim str As String
Set cn = New ADODB.Connection
cn.ConnectionString = "provider=sqloledb.1;data source=(local);user id=sa;pwd=623058;initial catalog=sdb"
cn.Open
str = "select * from Users where UserName='" & Trim(Text1.Text) & "'"
Set rs = New ADODB.Recordset
rs.Open str, cn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
If rs.Fields("Pwd").Value = Trim(Text2.Text) Then
MsgBox "successful"
Command3.Enabled = True
Else
MsgBox "密码错误"
Text2.Text = ""
Text2.SetFocus
Command3.Enabled = False
End If
Else
MsgBox "无此用户"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command3.Enabled = False
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

帮帮我吧　　斑竹

Text1 应该是输入用户名的吧
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
Dim str As String
Dim i As Integer, bNoUser As Boolean
Set cn = New ADODB.Connection
cn.ConnectionString = "provider=sqloledb.1;data source=(local);user id=sa;pwd=623058;initial catalog=sdb"
cn.Open

bNoUser = False
str = "select * from Users"
Set rs = New ADODB.Recordset
rs.Open str, cn, adOpenStatic, adLockOptimistic
Do While rs.EOF
If LCase(rs.Fields("UserName")) = LCase(Trim(Text1.Text)) Then
Exit Do
End If
bNoUser = True
rs.MoveNext
Exit Sub
Loop
If Not bNoUser Then
If rs.Fields("Pwd").Value = Trim(Text2.Text) Then
MsgBox "successful"
Command3.Enabled = True
Else
MsgBox "密码错误"
Text2.Text = ""
Text2.SetFocus
Command3.Enabled = False
End If
Else
MsgBox "无此用户"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command3.Enabled = False
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

[此贴子已经被作者于2005-11-12 15:06:06编辑过]

楼主　还是不行啊　现在连正确的由字母组成的用户名和密码都不行了　都登陆不了　提示密码错误了　比如用户是１２３４５６　密码１２３４５６　提示密码错误　楼主　你说为什么对用户名的大小写不敏感啊　我做的那个就是不能分辩用户名的大小写　其他的都正常　你在帮我看看吧　　麻烦了

你用ＳＱＬ建一个数据库sdb, 表为Users　

字段：UserName和Pwd

楼主　在想想吧　如果用户名是数字　能用Lcase吗　　如果用户名是密码和数字的组合又怎么办