Dim rst As ADODB.Recordset
Dim strCC As String
Set rst = New ADODB.Recordset
rst.Open "qryEmailList", CurrentProject.Connection, _
		adOpenStatic, adLockOptimistic
With rst
	If .RecordCount > 0 Then
		Do Until .EOF
			If Not IsNull(.Fields("emailAddr")) Then
				strCC = strCC & .Fields("emailAddr") & ";"
			End If
			.MoveNext
		Loop
	End If
	.Close
End With
Set rst = Nothing