Private Sub Command1_Click()
Static micount As Integer
Dim sqlstr As String
sqlstr = "select * from登录where用户名= '" & Text1 & "'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
If Adodc1.Recordset.BOF Then
   MsgBox "用户名错误，重新输入", vbExclamation, "警告"
   Text1 = ""
   Text1.SetFocus
Else
If Adodc1.Recordset.Fields("密码") = Text2 Then
form2.Show
Unload Me
Else
MsgBox "密码错误，重新输入", vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
End If
End If
micount = micount + 1
If micount = 3 Then Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

一、sqlstr = "select * from登录where用户名= '" & Text1.text & "'"
二、micount初值在Form_load的时候赋予0，定义micount为全局变量。

没看到有什么错误...

你运行时有什么错误提示????

------------------------------
回2楼.
1\
VB6 的控件都有一个默认属性,当直接引用 控件名 时,而没有写属性时, VB6会把它当作 引用默认属性处理.
所以 & text1 & 与 & text1.text & 效果等价,但编程时,建议按后面那种写.

2\他是使用了 Static 关键字定义变量, 这种定义的变量是定义在数据段中,而不是堆栈中,也就是 静态变量 ,全局变量 ,都是静态变量
例外的是,固定大小的数组,定长字符串,,整个是留好内存占用. 动态数组, 变长字符串外,都是在数据段中存储指针,然后对指针进行操作的.数据区在堆中,
但因为指针在数据段中,所以也被认为是静态的变量.
在这里,因为是申明的静态变量,并且是在过程中申明的,那么 micount 值在整个程序运行过程中,均能得到保持.只是作用域的问题.
因为是在过程中申明的,所以它只能在这个过程中被访问.当然,如果你用汇编级调试时,那是可以达到全局访问的.

VB6中,变量没有赋值时,有一个默认值,数值型的为 0 ,字符串 的为 空串 ,变体为 Empty

谢谢以上两位的答复，运行中出现的问题是 用户名，密码为空时，按command1按钮[microsoft][odbc sql server driver][sql server]在关键字'select'附近有语法错误，对象refesh的方法iadodc失败

sqlstr = "select * from登录where用户名= '" & Text1 & "'"

应该是 sqlstr = "select * from 登录 where 用户名= '" & Text1 & "'"
注意空格

按错误提示，就是SQL 命令错了。 估计是楼上的 说的内容了。

所以我调试的时候没提示有错误。。。
谢谢风老大

还是不行，运行中出现的问题是 用户名，密码为空时，按command1按钮[microsoft][odbc sql server driver][sql server]在关键字'select'附近有语法错误，对象refesh的方法iadodc失败

运行中出现的问题是 用户名，密码为空时，按command1按钮[microsoft][odbc sql server driver][sql server]在关键字'select'附近有语法错误，对象refesh的方法iadodc失败

这应该是常见的问题，我也没解决。我的只要加了Refesh就会有这样了的错了。你好那问题好象添加一个数据表有可能解决该错误！