Vcs me ajudaram no combo1, ele esta funcionanco corretamente

preciso adicionar todas lojas  no cmbLoja de seu respctivos clientes(Cl). Tenho 5 Clientes cada cliente tem n lojas

no meu form load, nao tah dando erro, mas tb naom faz nada

Dim vgdb As Database
  Set vgdb = OpenDatabase("C:Documents and SettingsRAFAELDesktopNova pasta (4)Biblioteca.mdb")

  Dim rst As Recordset
  Combo1.Clear
  Set rst = vgdb.OpenRecordset("SELECT DISTINCT Pedido.[Cl] From Pedido ORDER BY Pedido.[Cl];")
  Do While Not rst.EOF
    Combo1.AddItem rst![Cl]
    rst.MoveNext
  Loop
  If Not rst Is Nothing Then
   
    Set rst = Nothing
  End If

  Set rst = vgdb.OpenRecordset("SELECT  Loja From Pedido Where Cl Like '*" & Combo1 & "*'")
  Do While Not rst.EOF
    cmbLoja.AddItem rst![Loja]
    rst.MoveNext
  Loop
  If Not rst Is Nothing Then
   
    Set rst = Nothing
  End If