For those that need to see the full results. Here is full code so far for the combo dropdown box. Many thanks to Ajax for the assist.
Code:
Private Sub cboQuestionID_AfterUpdate()
Dim rstDynaset As DAO.Recordset
Dim dbDatabase As DAO.Database
Dim I As Integer
Set dbDatabase = CurrentDb
Set rstDynaset = dbDatabase.OpenRecordset("SELECT qryAnswers.* FROM qryAnswers WHERE tblQuestions.ID=" & cboQuestionID & ";", dbOpenSnapshot)
I = 1
While Not rstDynaset.EOF
Me("lblAnswer" & I).Caption = rstDynaset!Answers
rstDynaset.MoveNext
I = I + 1
Wend
rstDynaset.Close
Set rstDynaset = Nothing
Set rstDynaset = dbDatabase.OpenRecordset("SELECT qryQuestions.* FROM qryQuestions WHERE ID=" & cboQuestionID & ";", dbOpenSnapshot)
Me.Question.Value = rstDynaset!Question
rstDynaset.Close
Set rstDynaset = Nothing
If Len(Me.BLOBDesc) > 0 Then
cmdShow_Click
Else
Me.imgPic.Picture = ""
End If
End Sub