Public Function GetEmployee(EmpID)
  Dim Conn As New ADODB.Connection
  If IsNumeric(EmpID) = False Then
    Err.Raise vbObjectError + 1, "SampleServer", _
      "Identyfikator pracownika musi by liczb!"
  End If
  Conn.Open "EmpsDatabase", "Admin", ""
  Set GetEmployee = Conn.Execute("select * from tblEmps where " _
    & "EmpID = " & EmpID)
  If GetEmployee.EOF Then
    Err.Raise vbObjectError + 2, "SampleServer", _
      "Nie znaleziono wpisu pracownika!"
  End If
End Function
