自学VB半年，做个东东请高手指点

第一次上传东东，不好意思弄砸了

我是学财会的，业余时间自学一下VB。
希望版主多多指点!

重新整理了一下，

第一次运行要重新选择数据库路径，
密码：1
辛苦版主再看一下!

大意了，改一下。
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
版主还有什么好的建议？

模块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()

不错
谢了