Public Function GetAllEmployees()
  Dim Conn As New ADODB.Connection
  Conn.Open "EmpsDatabase", "Admin", ""
  Set GetAllEmployees = Conn.Execute("select * from tblEmps")
End Function
