Nhờ các Anh Chị bổ sung thêm điều kiện trong cậu lệnh Where

[lhthai]

Mình sử dụng đoạn code sau để lấy dữ liệu file đang đóng,nay mình muốn bổ sung thêm điều kiện vào cậu lệnh Where

Dim cnn As Object, lrs As Object
Dim shName, I As Long, Fname, Filename1, Filename2
On Error Resume Next
    Filename1 = Format(Sheet3.Range("F5"), "YYMMDD")
    Filename2 = Format(Sheet3.Range("F5"), "DDMMYY")
    Sheet3.Range("B10:V1000").ClearContents
    Fname = Sheet3.Range("A1")
    Set cnn = CreateObject("ADODB.Connection")
    shName = Array("NV-Y", "AVP", "IV", "IV-A", "NV-A", "AV06", "A06,V06", "AV18", "AV05JA-B", "C07J-P", "VN", "QMD", "NKK")
'-----------------------------------------------------------------------------------
 'Tao ket noi CSDL


    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=\\10.88.0.9\database\KH-2016\" & Fname & _
               ";Extended Properties=""Excel 8.0;HDR=No;"";")


'-----------------------------------------------------------------------------------
For I = 0 To UBound(shName)
    Set lrs = cnn.Execute("SELECT * FROM [" & shName(I) & "$] " & _
                           "WHERE F12 = '" & Filename1 & "'")
                   'câu mình muốn thêm       
[COLOR=#ff0000]                           '"WHERE F12 = '" & Filename1 & "or F12 = '" & Filename2 & "'")[/COLOR]
                           
'-----------------------------------------------------------------------------------
  'Copy ket qua vao sheet
    Sheet3.Range("B6500").End(xlUp)(2).CopyFromRecordset lrs
Next I
'-----------------------------------------------------------------------------------
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing

Mình sử thêm điều kiện or nhưng không biết sai chỗ nào nhờ các Anh Chị giúp.

 

[OverAC]

Thiếu 1 dấu ' trước chữ or

 

[lhthai]

Thiếu 1 dấu ' trước chữ or

Đúng rồi cám ơn Anh nhiều.