ADO问题

Question

Option ExplicitDim Conn As ADODB.Connection
Dim rs As ADODB.RecordsetFunction openconn()
    Set Conn = New ADODB.Connection
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\aqgl\aqgl.mdb"
End Function
Function closeconn()
    Conn.Close
End FunctionPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Private Sub Text1_LostFocus()
        Call openconn
        rs.Open "select * from clqk where 自编号 = '" & Text1.Text & "' "
        Set Text2.DataSource = rs
        Text2.DataField = "牌照"
        Set rs = Nothing
End Sub
为什么我在TEXT1中输入自编号后，TEXT2中没有出现牌照号码？请求高手相助，谢谢。我是初学者

Answer 1

哈，用的事件错了，Text1_LostFocus是当text1的焦点失去时才触发的。改用Text1_Change试试