VB6查找后如何重接
程序查找完后只示查找的值，怎才能重新刷新呢？代如下。高人指。

VB code

Private Sub Command2_Click()    Adodc1.Refresh    Set MSHFG1.DataSource = Adodc1    MSHFG1.Refresh    Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim wls_l_num, wls_es_num As StringDim str1, str2, str3 As String            str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"        str2 = "Data Source=C:\WYKO Data Capture\WYKOData.mdb;"        str3 = "Jet OLEDB:Database Password="                conn.Open str1 & str2 & str3        strSQL = "select * from WYKOData"        rs.Open strSQL, conn, 3, 3        End SubPrivate Sub Command1_Click()    sqlseek = "select * from WYKOData where Wafer_Number='" & Trim(Text1(6).Text) & "'"            If Text1(6).Text = "" Then            MsgBox "Please input lot Number."        End If    Text1(6).SetFocus    Adodc1.RecordSource = sqlseek    Adodc1.Refresh    End Sub