07/08/06 15:53:57
>>554
他のコードです。
Dim db As Database
Dim qd As QueryDef
Dim rs As Recordset
Set db = CurrentDb()
qd.Connect = glcnst_ODBCConnect
qd.ReturnsRecords = True
qd.ODBCTimeout = 0
SQL = "exec pro_hoge"
qd.SQL = SQL
Set rs = qd.OpenRecordset()
何か文法等間違っている箇所があるのでしょうか？
お願いします。