Public Sub EditEmployee(EmpID, LastName, FirstName, DepartmentID, Salary, BirthDate)
If IsNumeric(EmpID) = False Then
  Err.Raise vbObjectError + 1, "SampleServer", _
    "Identyfikator pracownika musi by liczb!"
ElseIf IsNumeric(DepartmentID) = False Then
  Err.Raise vbObjectError + 3, "SampleServer", _
    "Identyfikator wydziau musi by liczb!"
ElseIf IsNumeric(Salary) = False Then
  Err.Raise vbObjectError + 4, "SampleServer", _
    "Wynagrodzenie musi by liczb!"
ElseIf IsDate(BirthDate) = False Then
  Err.Raise vbObjectError + 5, "SampleServer", _
    "Data urodzenia musi mie posta daty!"
Else
  Dim Conn As New ADODB.Connection
  Dim RSEmpID As ADODB.Recordset
  Conn.Open "EmpsDatabase", "Admin", ""
  Set RSEmpID = Conn.Execute("select EmpID from tblEmps where " _
    & "EmpID = " & EmpID)
  If RSEmpID.EOF Then
    Err.Raise vbObjectError + 2, "SampleServer", _
      "Nie znaleziono wpisu pracownika!"
  End If
  Conn.Execute "Update tblEmps set " _
    & "LastName = '" & LastName & "', " _
    & "FirstName = '" & FirstName & "', " _
    & "DepartmentID = " & DepartmentID & ", " _
    & "Salary = " & Salary & ", " _
    & "BirthDate = '" & BirthDate & "' " _
    & "where EmpID = " & EmpID
End If
End Sub
