sql = "select * from " & mytable & " where 客戶單號 = '" & a1 & "'"
Set rs = New ADODB.Recordset
rs.Open sql, conn, 1, 3

我想把這個結果集弄到ListBox1,開起點擊選取整行,雙擊哪行將該行數據傳到TEXTBOX2

Do Loop     
List1.AddItem
DblClick