Multiselect в списках

Function FiltrName()
FiltrName = " SELECT distinct [GM].Name" & _
     " FROM [GM] " & _
     " WHERE ([GM].Fil= '" & Forms![Äàííûå]!lstFil & "')" & _
     " order by [GM].Name "
End Function

Me.lstName.RowSource = FiltrName()

Private Sub cmdOK_Click()
' Declare variables
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim varItem As Variant
    Dim strCriteria As String
    Dim strSQL As String
' Get the database and stored query
    Set db = CurrentDb()
    Set qdf = db.QueryDefs("qryMultiSelect")
' Loop through the selected items in the list box and build a text string
    If Me!lstRegions.ItemsSelected.Count > 0 Then
        For Each varItem In Me!lstRegions.ItemsSelected
            strCriteria = strCriteria & "tblData.Region = " & Chr(34) _
                          & Me!lstRegions.ItemData(varItem) & Chr(34) & "OR "
        Next varItem
        strCriteria = Left(strCriteria, Len(strCriteria) - 3)
    Else
        strCriteria = "tblData.Region Like '*'"
    End If
' Build the new SQL statement incorporating the string
    strSQL = "SELECT * FROM tblData " & _
             "WHERE " & strCriteria & ";"
' Apply the new SQL statement to the query
    qdf.SQL = strSQL
' Open the query
    DoCmd.OpenQuery "qryMultiSelect"
' Empty the memory
    Set db = Nothing
    Set qdf = Nothing
End Sub

Private Sub cmdOK_Click()
' Declare variables
    Dim db As DAO.DataBase
    Dim qdf As DAO.QueryDef
    Dim varItem As Variant
    Dim strCriteria As String
    Dim strSQL As String
' Get the database and stored query
    Set db = CurrentDb()
    Set qdf = db.QueryDefs("sozdIDGM")
' Loop through the selected items in the list box and build a text string
    If Me!lstGM.ItemsSelected.Count > 0 Then
        For Each varItem In Me!lstGM.ItemsSelected
            strCriteria = strCriteria & "GM.Name = " & Chr(34) _
                          & Me!lstGM.ItemData(varItem) & Chr(34) & " OR "
        Next varItem
        strCriteria = Left(strCriteria, Len(strCriteria) - 3)
    Else
        strCriteria = "GM.Name Like '*'"
    End If
' Build the new SQL statement incorporating the string
    strSQL = "SELECT * FROM GM " & _
             "WHERE " & strCriteria & " " & _
             "And [Òàáëèöà1].[CODE] = Forms![Äàííûå]!PolCODE" & _
             "And [GM].[Fil] = & strCriteria &" & _
             "And [GM].[Format_assort] = & strCriteria &"
            ' Forms![Äàííûå]!PolCODE
' Apply the new SQL statement to the query
    qdf.SQL = strSQL
' Open the query
    DoCmd.OpenQuery "sozdIDGM"
' Empty the memory
    Set db = Nothing
    Set qdf = Nothing
End Sub

If Me!lstGM.ItemsSelected.Count > 0 Then
        For Each varItem In Me!lstGM.ItemsSelected
            strCriteria = strCriteria & "GM.Name = " & Chr(34) _
                          & Me!lstGM.ItemData(varItem) & Chr(34) & " OR "
        Next varItem
        strCriteria = Left(strCriteria, Len(strCriteria) - 3)
    Else
        strCriteria = "GM.Name Like '*'"
    End If

' Use the References dialog box to set up a reference to the Microsoft ActiveX Data Objects Library
Sub Add_Record()
   Dim conn As ADODB.Connection
   Dim myRecordset As ADODB.Recordset
   Dim strConn As String
   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"
   Set myRecordset = New ADODB.Recordset
   With myRecordset
      .Open "Select * from Employees", _
         strConn, adOpenKeyset, adLockOptimistic
      .AddNew
      !LastName = "Marco"
      !FirstName = "Paulo"
      !City = "Boston"
      .MoveFirst
      .Close
   End With
   Set myRecordset = Nothing
   Set conn = Nothing
End Sub

Private Sub Кнопка208_Click()
Dim rst As DAO.Recordset
Dim rst2 As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Таблица1")
        With rst
           .AddNew
           .Fields("CODE").Value = Me.CODE.Value
           .Fields("Название позиции").Value = Me.NazvPoz.Value
           .Fields("Код позиции").Value = Me.KodPoz.Value
           .Fields("GR20").Value = Me.GR20.Value
           .Fields("GR21").Value = Me.GR21.Value
           .Fields("GR22").Value = Me.GR22.Value
           .Fields("GR23").Value = Me.GR23.Value
           .Fields("GR1").Value = Me.GR1.Value
           .Fields("GR2").Value = Me.GR2.Value
           .Fields("Дата Записи").Value = Me.[Дата Записи].Value
           .Fields("Дата Закрытия").Value = Me.[Дата Закрытия].Value
           .Fields("Дата Контроля").Value = Me.[Дата Контроля].Value
           .Fields("Примечание").Value = Me.Примечание.Value
           .Fields("Вес продукции").Value = Me.[Вес продукции].Value
           .Fields("Дата Закрытия").Value = Me.[Дата Закрытия].Value
           .Fields("Дата Контроля").Value = Me.[Дата Контроля].Value
           .Fields("Поставщик").Value = Me.Поставщик.Value
           .Fields("Поставщик").Value = Me.Поставщик.Value
           .Fields("Инициатор").Value = Me.Инициатор.Value
           .Fields("Цена").Value = Me.Цена.Value
           .Update
       End With
    Set rst = CurrentDb.OpenRecordset("Таблица2")
        With rst
           .AddNew
           .Fields("CODE").Value = Me.CODE.Value
           .Fields("Fil").Value = Me.fil.Value
           .Fields("Name").Value = Me.Gm.Value
           .Fields("Format").Value = Me.FormAsort.Value
           .Update
       End With
   rst.Close
   Set rst = Nothing
   On Error GoTo Err_ДобЗап_Click
DoCmd.GoToRecord , , acNewRec
Exit_ДобЗап_Click:
    Exit Sub
Err_ДобЗап_Click:
    MsgBox Err.Description
    Resume Exit_ДобЗап_Click
End Sub