Combo Box Not filtering

[ss2020]

I am creating a form to look up some data which will make an entry into another form. The 2nd look-up combo box, I can't get it to work.
Detail:

table -- dbo_POFOM

Current Form -- F_MDF has 2 Unbound Combos


Row Source Combo 1 [V_Name]
select * from dbo_pofvm order by vendor_name
This lets my user select the vendor to create the MDF

I want this 2nd combo to pull the PO numbers that belong to the vendor the user selected above:

Row sorce combo 2 [PO_num]


Select dbo_POFOM.PO_ID FROM dbo_POFOM WHERE ((dbo_POFOM.VENDOR_NAME)=[Forms]![F_MDF]![V_NAME]) order by dbo_pofom.PO_ID

When I take the where statement out, I can see all the PO numbers when I put the where statement in the cofield has no data. I have spent hours hitting my head agaist the wall and reading different posts. Nothing seems to help.

Thanks in advance.

Scott

[orange]

Search Cascading Comboboxes
http://www.datapigtechnologies.com/f...combobox1.html
http://www.datapigtechnologies.com/f...combobox2.html

http://www.baldyweb.com/CascadingCombo.htm

[ss2020]

I am still not getting data in my 2nd combo box. I have used similar examples and tried these as well now.
Not sure what else I can do. This seems straight forward and simple.

On the 2nd code example I am getting a missing operator error and I don't see why. But it is picking up the vendor name, I can see that much.
V-Name is the 1st combo box in the chain on F_MDF.

Private Sub V_Name_AfterUpdate()

Dim strSource As String

strSource = "Select PO_ID" & _
"FROM dbo_POFOM" & _
"Where Vendor_Name = '" & Me.V_Name & "'Order By PO_ID"
Me.PO_Num.RowSource = strSource
Me.PO_Num = vbNullString

S

[orange]

This code

Private Sub V_Name_AfterUpdate()

Dim strSource As String

strSource = "Select PO_ID" & _
"FROM dbo_POFOM" & _
"Where Vendor_Name = '" & Me.V_Name & "'Order By PO_ID"
Me.PO_Num.RowSource = strSource
Me.PO_Num = vbNullString

needs some spaces

Private Sub V_Name_AfterUpdate()

Dim strSource As String

strSource = "Select PO_ID" & _
    " FROM dbo_POFOM" & _
    "Where Vendor_Name = '" & Me.V_Name & "'Order By PO_ID"
Me.PO_Num.RowSource = strSource
Me.PO_Num = vbNullString

There is a space to the left of the characters in RED

[ss2020]

Wow, I need to start wearing my glasses.

Thanks.

Scott