RecordSetを返さないコマンド(アクションクエリやストアドプロシージャ)の場合
command.
Execute RecordsAffected
プロバイダがLongで返してくれる。
RecordSetを返すクエリなどについては、RecordCountで。
**********************************
Dim cn As New ADODB.Connection
Dim updateSQL As String
Dim ra As Long
updateSQL = "update TableName set column1 = '2009/1/1' where ID =1 and UpdateTime = '2009/1/1 00:00:00';"
cn.Open [ConnectionString]
cn.Execute updateSQL, ra
If ra = 0 Then MsgBox "更新されませんでした。", vbCritical
cn.Close:Set cn = Nothing