Public Function SelectControl()
  Dim Conn As New ADODB.Connection
  Dim RSEmps As ADODB.Recordset
  Conn.Open "EmpsDatabase", "Admin", ""
  Set RSEmps = Conn.Execute("select EmpID, FirstName & ' ' & LastName " _
    & "as EmpName from tblEmps")
  SelectControl = "<SELECT NAME=""EmpID"" SIZE=1>"
  Do Until RSEmps.EOF
    SelectControl = SelectControl & "<OPTION VALUE=""" _
      & RSEmps("EmpID") & """>" & RSEmps("EmpName")
    RSEmps.MoveNext
  Loop
  SelectControl = SelectControl & "</SELECT>"
End Function
