Public Function AddEmployee(LastName, FirstName, DepartmentID, Salary, BirthDate)
If IsNumeric(DepartmentID) = False Then
  Err.Raise vbObjectError + 3, "SampleServer", _
    "ID 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", ""
  Conn.Execute "insert into tblEmps (LastName, FirstName, DepartmentID, " _
    & "Salary, BirthDate) values (" _
    & "'" & LastName & "', " _
    & "'" & FirstName & "', " _
    & DepartmentID & ", " _
    & Salary & ", " _
    & "'" & BirthDate & "')"
  Set RSEmpID = Conn.Execute("select Max(EmpID) as MaxID from tblEmps")
  AddEmployee = RSEmpID("MaxID")
End If
End Function