Public Function GetAllEmployeesHTMLTable()
  Dim Conn As New ADODB.Connection
  Dim RSEmps As ADODB.Recordset
  Dim MyField
  Conn.Open "EmpsDatabase", "Admin", ""
  Set RSEmps = Conn.Execute("select * from tblEmps")
  GetAllEmployeesHTMLTable = "<TABLE><TR>"
  For Each MyField In RSEmps.Fields
    GetAllEmployeesHTMLTable = GetAllEmployeesHTMLTable & "<TD>" _
      & MyField.Name & "</TD>"
  Next
  GetAllEmployeesHTMLTable = GetAllEmployeesHTMLTable & "</TR>"
  Do Until RSEmps.EOF
    GetAllEmployeesHTMLTable = GetAllEmployeesHTMLTable & "<TR>"
    For Each MyField In RSEmps.Fields
      GetAllEmployeesHTMLTable = GetAllEmployeesHTMLTable & "<TD>" _
        & RSEmps(MyField.Name) & "</TD>"
    Next
    GetAllEmployeesHTMLTable = GetAllEmployeesHTMLTable & "</TR>"
    RSEmps.MoveNext
  Loop
  GetAllEmployeesHTMLTable = GetAllEmployeesHTMLTable & "</Table>"
End Function
