HELLO!
Is there any other way I could populate my text boxes and cbo on my form?

Public Sub fillfields()

'cboPconsonants.AddItem rs.Fields("Pconsonants")
txtStudentln.Text = rs.Fields("firstname"): txtStudentfn.Text = rs.Fields("lastname"): txtStudentID.Text = rs.Fields("ID")
Pconsonants.Text = rs.Fields("Pconsonants")

End Sub

I have 58 items that need to show data. Do I have to put them all in the fillfields section? Please is there another way.