
07-19-2004, 08:18 AM
|
 |
Cum Grano Salis
Retired Moderator * Guru *
|
|
Join Date: Jul 2002
Location: Baltimore, Maryland
Posts: 14,636
|
|
Code:
Dim iaffected As Long
iaffected = 0
'your insert or update statement here
strString = "INSERT INTO myTable SELECT....."
'where cn is your open, active ADO connection
cn.Execute strString, iaffected
'return the number of recs affected
If iaffected > 0 Then
MsgBox "records added: " & iaffected
End If
|
__________________
"Artificial Intelligence is no match for natural stupidity." ~unknown
|