VBA questions

Hi

I recently attended the VBA course where we built a small films database which had an analysis button, which when clicked, would list details of films dependig on which director was chosen in the combo box.

I am doing something similar in trying to list the details of assignments for a particular Adviser.

I have created the combo box to choose a particular Adviser and have attempted to write the code behind the update event procedure to list the assignments for that ADvisers in a separate list box

When I try it I get no records in the lstAssignments field at all, its just blank apart from the column splits

here is my code

Private Sub cmbAdvisers_AfterUpdate()

Dim strAssignments As String
Dim strSQL As String

strAssignments = Me.cmbAdvisers.Value


strSQL = "SELECT SCIID, AdviserName, OrgName, ProjectTitle, FROM qryAdviserAssignments"
strSQL = strSQL & "WHERE AdviserName = " & Chr(34) & strAssignments & Chr(34)

Call ClearlstAssignments

Me.lstAssignments.RowSourceType = "Table/Query"
Me.lstAssignments.ColumnCount = 4
Me.lstAssignments.ColumnHeads = True
Me.lstAssignments.RowSource = strSQL
Me.lstAssignments.ColumnWidths = "4cm; 6cm; 7cm; 7cm"


If Me.lstAssignments.ListCount = 0 Then

MsgBox "There are no records"

End If

Exit Sub

Any help where I am going wrong. I assume its in the strSQL string somewhere as it clearly not linking up the records?

Thanks
Marc Lupson