[VB6 ] 查詢問題 Part2

[kelvinkao (關心被扭曲為找碴)]

請大大幫我看一下這一小段程式碼
我想要比對TEXT1.TXT的資料和ACCESS資料庫裡的資料
如果找到  顯示在TEXT1~TEXT3.TXT
但是一直顯示"我要求變更資料表.........(以下略)"
可是我只是要比對啊...救救我吧>_<


========================================================



Private Sub Command5_Click()
    FltStr = ""
    If Text1.Text <> "" Then
        RS.Filter = 收料單單號 Like Text1.Text
    End If
    If RS.EOF Then
        MsgBox "沒找到資料"
        Exit Sub
    End If
    Do Until RS.EOF
        For I = 0 To RS.Fields.Count - 1
            Tmp = Tmp & RS.Fields(I) & " "
        Next
        RS.MoveNext
    Loop
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.121.186.31