Public Function LastNameRecords(LastNameLike)
  Dim Conn As New ADODB.Connection
  Conn.Open "EmpsDatabase", "Admin", ""
  Set LastNameRecords = Conn.Execute("select * from tblEmps " _
    & "where LastName Like '*" & LastNameLike & "*'")
End Function
