一个关于VB Combo控件连接数据库的问题

首先 先上我的代码：

Private Sub Form_Load()

conn.CursorLocation = ******

conn.ConnectionString =******

conn.Open
cnn.Open "select * from use", conn, adOpenKeyset, adLockPessimistic
If cnn.RecordCount <> 0 Then
cnn.MoveFirst
While Not cnn.EOF
Combo1.AddItem cnn.Fields("useID").Value
Call ShowValue
cnn.MoveNext
Wend
End If

End Sub

问题在 我想要点选 或者改变Combo中的文本时

让Text1.text也随着该变

我感觉应该在 Combo_Change 下写代码

If cnn.RecordCount > 0 Then
cnn.Find "useID='" & Combo1.Text & "'", , , 1
If Not cnn.EOF Then
Call ShowValue
Else
Text1.Text = ""
End If
Combo1.Text = ""
End If

但是提示我数据库已经关闭 但是我没有关闭数据库啊

谁帮帮我啊 或者换段代码

新手别整的太深懊就行！