VB6查找數據后怎么重連接數據庫

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