Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
' Open a connection. Set cnn1 = New ADODB.Connection mydb = "c:\barnett\barnett.accdb" strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mydb cnn1.Open strCnn ' Open employee table. Set rstcontact = New ADODB.Recordset rstcontact.CursorType = adOpenKeyset rstcontact.LockType = adLockOptimistic rstcontact.Open "employee", cnn1, , , adCmdTable 'get the new record data rstcontact.AddNew rstcontact!empid = empid rstcontact!fname = fname rstcontact!lname = lname rstcontact!hiredate = hiredate rstcontact!i9 = i9 rstcontact!dl_id = dl_id rstcontact!birth_certificate = birth_certificate rstcontact!sscard = sscard rstcontact!currently_working = currently_working rstcontact!temp_agency = temp_agency rstcontact!separation_date = separation_date rstcontact!separation_reason = separation_reason rstcontact!notes = notes rstcontact!eligible_for_rehire = eligible_for_rehire rstcontact!eaddress = eaddress rstcontact!ecity = ecity rstcontact!estate = estate rstcontact!ezip = ezip rstcontact!ephone = ephone rstcontact!ecell = ecell rstcontact!emergency_name = emergency_name rstcontact!emergency_number = emergency_number rstcontact!payrate = payrate rstcontact!employee_status = employee_status rstcontact.Update ' Show the newly added data. 'MsgBox "New contact: " & rstcontact!Name & " has been successfully added" 'close connections rstcontact.close
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.