Open "F:\Test.txt" For Output As #intFileNo
Print #intFileNo, ChrW(1949) 'I stored as char
Close #intFileNo

[b]
?
[/b]

Dim strSql as String
for i = 0 to UBound(Split(Day,"/"))
<Asigen strDayStringHere by spliting Day by "/"

 strSql = "Select * from tblTableName WHERE [B]Day[/B] like %'" strDayStringHere "'% and [I]<other criteria>[/I]"
...
...

   strSql = "Select * from TableName Where searchField1 like '" & strSearchString & "%' or searchField2 like '" & strSearchString & "%'"

Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal _
crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, _