Accessリストボックスで複数値を選択後Update（ADO PostgreSQL ファイルDNS）

リストボックスはプロパティからその他＞複数選択で拡張を選択しました。

Private Sub コマンド5_Click()

Dim element

Dim sql As String
Dim cn As New ADODB.Connection


'** ODBC 接続
Set cn = CreateObject("ADODB.Connection")
cn.Open "filedsn=test;uid=test;pwd=test;database=test"
cn.CursorLocation = 3

For Each element In lstTest.ItemsSelected
sql = "update test2 set time = '20090511 14:46:00' where id = " & lstTest.ItemData(element)
cn.Execute sql
'** イミディエイトウィンドウに出力する
Debug.Print lstTest.ItemData(element)
MsgBox lstTest.ItemData(element)
Next

'** レコードセットクローズ
cn.Close

End Sub