Dim varItem
  Dim varStr
  varStr = Null
  For Each varItem In Me.lst0.ItemsSelected
    varStr = varStr + ","
    varStr = varStr & "'" & Replace(lst0.Column( 1 , varItem), "'",  "''") & "'"   
  Next

varStr = varStr + ","
varStr = varStr & FormatValueForSQL( lst0.Column( 1 , varItem))

Function formatValueForSQL(tValue As Variant) As String
Dim curType As Long
  curType = VarType(tValue)
  Select Case curType
   Case vbDate
      formatValueForSQL = FormatDateForSql(CDate(tValue))
   Case vbString
      formatValueForSQL = FormatStringForSQL(CStr(tValue))
   Case vbDouble, vbCurrency, vbDecimal
      formatValueForSQL = FormatNumberForSQL(CDbl(tValue))
   Case vbEmpty, vbNull, vbObject, vbUserDefinedType, vbArray
      Err.Raise vbObjectError + mySQLFormatError, "FormatValueForSQL", _
      "Полученный тип данных не может быть непосредственно отформатирован в значение для фильтра"
   Case Else
      formatValueForSQL = CStr(tValue)
  End Select
End Function

Private Function FormatNumberForSQL(tValue As Variant) As String
  FormatNumberForSQL = Str(tValue)
End Function

Private Function FormatDateForSql(ByVal tDate As Date) As String
  FormatDateForSql = Str(CDbl(tDate))
End Function

Private Function FormatStringForSQL(ByVal vString As String) As String
  Dim retStr As String
  retStr = Replace(vString, "'", "''")
  retStr = "'" & retStr & "'"
  FormatStringForSQL = retStr
End Function