Public Sub DeleteEmployee(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", ""
  Conn.Execute "Delete from tblEmps where EmpID = " & EmpID
End Sub
