Hi Minty that worked a charm. Many thanks. I went with the following code you suggested
Dim strVariety As String
strVariety=Me.Cbo_Tier3.Column(1))
If DCount("Variety","Tbl_Variety", "Variety = '" & strVariety & "'") = 1 Then
Question is how i now add the qualifier that it needs to also...