Dim 起日期 As Date
起日期 = "2009/08/08"
With MYRS
.Source = "SELECT * FROM 進貨總表 WHERE 日期 = " & 起日期
.ActiveConnection = MYCON '指定所使用的Connection物件
.Open
End With
Sheets("TEMP").Range("I11").CopyFromRecordset MYRS
請問各位大大,我哪邊寫錯了
少了單引號吧....
<pre class="c" name="code">.Source = "SELECT * FROM 進貨總表 WHERE 日期 = '" & 起日期 & "'"