Public Function FormWithSelectControl(FormAction, PostGet)
  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")
  FormWithSelectControl = "<FORM ACTION=""" & FormAction _
    & """ METHOD=""" & PostGet & """>EmpID:"
  FormWithSelectControl = FormWithSelectControl & "<SELECT NAME=""EmpID"" SIZE=1>"
  Do Until RSEmps.EOF
    FormWithSelectControl = FormWithSelectControl & "<OPTION VALUE=""" _
      & RSEmps("EmpID") & """>" & RSEmps("EmpName")
      RSEmps.MoveNext
    Loop
    FormWithSelectControl = FormWithSelectControl & "</SELECT><P>" _
      & "<INPUT TYPE=""submit"" NAME=""Submit""></FORM>"
End Function
