Dim db As ADODB.Connection
Dim rs As New Recordset
Dim strLblName As String
Set db = CurrentProject.Connection
rs.Open "qryZipSelected", db, adOpenKeyset, adOpenDynamic
Do While Not rs.EOF
strLblName = rs.Fields("Forms!frmPreprintorder!lbl93611C") 'labels names...