VB6查找數據后如何重連接數據庫

Private Sub Command2_Click()

    Adodc1.Refresh
    Set MSHFG1.DataSource = Adodc1
    MSHFG1.Refresh
    
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim wls_l_num, wls_es_num As String
Dim 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 Sub


Private 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