Accessリストボックスにテーブル内データを表示（ADO PostgreSQL ファイルDNS）

自分なりにロード

Private Sub form_load()

Dim sql As String 'sql直接書いてるからこれ要らないじゃん。
Dim lstsouce As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

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

'** レコードセットオープン
Set rs = cn.Execute("select * from test2")

'** レコード処理
Do Until rs.EOF
Debug.Print rs!id & " => " & rs!Name & " => " & rs!Time
lstsource = lstsource & ";" & rs!id & ";" & rs!Name & ";" & rs!Time & vbCrLf
rs.MoveNext
Loop

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

cn.Close

'** 頭の;を取って・・・
lstsource = Replace(lstsource, ";", "", , 1)
Debug.Print lstsource

'** リストボックスlstTestに表示
lstTest.RowSourceType = "Value List"
lstTest.BoundColumn = 1
lstTest.ColumnCount = 3
lstTest.RowSource = lstsource

End Sub