大意了，改一下。
Private Sub Combo1_GotFocus()
On Error GoTo onn
Dim ix, iy, iz As String
If Text2.Text <> "" Then
sjk = Text2.Text
Call conn
ix = "select*from 密码"
rs.Open ix, GG, 2, 3
Combo1.Clear
While rs.EOF = False
iy = rs.Fields("id").Value
Combo1.AddItem (iy)
rs.MoveNext
Wend
rs.Close
Else
Text2.SetFocus '焦点返回text2
End If
Exit Sub
onn:
rs.Close
MsgBox Err.Description
End Sub
版主还有什么好的建议？

Private Sub Combo1_GotFocus()
if text2="" then Call Command3_Click()

........

模块Module1也改一下：
Public Function conn() As Boolean
On Error GoTo connt
If GG.State = 1 Then
GG.Close
End If
GG.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + sjk + ";Persist Security Info=False"
GG.Open

conn = True
Exit Function
connt:
conn = False
MsgBox Err.Description
End Function

Private Sub Combo1_GotFocus()
if text2="" then Call Command3_Click()

不错
谢了

向楼主好好学习了

你给的文件不完整？