建議你不要綁定了
例如
引用Microsoft ActiveX Data Objects 2.8 Library
Dim oCnn As New ADODB.Connection
'寶媍愝慡嬊澨検
Dim rs As New ADODB.Recordset
oCnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DWH;Data Source=kerr"
oCnn.Open
Set rs = oCnn.Execute(strSql)
Do While Not rs.EOF
'這裡讀取某行某字段數據
'rs("字段名").value
rs.MoveNext'移至下條記錄
Loop
rs.Close