色々考えてみたのですが解決法がわからず質問させていただきました。
　
　エクセル９７のデータにＤＢからデータを追加するということをやっています。
　
　エクセルデータのオープンは出来たのですが、ＤＢからデータを追加するというのがうまくできなくて
　悩んでいる最中で御座います。
　エクセルデータ上に受付番号があり、ＤＢ上のその番号と同じレコードから必要な項目を抽出し、
　エクセルに追加する・・・といった事を行おうとしています。
　エクセルデータ　⇒　受付番号　顧客名
　　　　　　　　　　　０１　　　山田
　ＤＢ（オラクル）⇒　受付番号　品物
　　　　　　　　　　　０１　　　りんご
　作成したいエクセル　⇒　受付番号　顧客名　品物
　　　　　　　　　　　　　０１　　　山田　　りんご
　SQL文で　select 受付番号,品物 FROM テーブル名 where 受付番号=　xlSheet.Cells(2, 1).Value
　と書いて
　xlSheet.Cells(2,3).Value = rec.Fields("品物")
　とかで指定って出来るのでしょうか？
　どなたかお教え願います。

> 　xlSheet.Cells(2,3).Value = rec.Fields("品物")
> 　とかで指定って出来るのでしょうか？
という事だけの質問ならご自分で試されたら即解る事かと思います。

私は、ＤＢ（オラクル）を使用した事もないので解りませんが、上記を実現する上で
貴方はどこまでできて、どの部分が解らないのでしょうか？

DBからのアウトプットにも色々方法があると思うのですが、個々のデータなら
Excelに代入できるのでしょうか？、どのような形でExcelに代入したいのでしょうか？
（レコード形式のまま、個々のセルにデータを個別で）
>xlSheet.Cells(2,3).Value = rec.Fields("品物")
rec.Fields("品物") には何が入っていますか？
Excelのセルにではなく、VBのテキストボックスになら表示できますか？
それが出来ないなら、ExcelうんぬんよりDBの操作について質問して下さい。
まずは、一番単純にDBからデータを1個取り出しそのデータをExcelのセルに表示する事
から初めて下さい。

その上で、貴方が出来ない事（部分）のコードを提起するようにして下さい。
こういった掲示板では，１から１０迄教えて下さい的な質問は、ご法度です。

又、「オラクル Excel　VB」をキーワードにWEBを検索すれば、サンプルコードが
いくらでも見つかります。
http://www.ylw.mmtr.or.jp/~itcarrot/vbscriptsql/oo4o_ora_10.html

　色々試した結果、エクセルにＤＢからのデータは追加が可能になりました。
　
　ですが、エクセルのレコードが無くなってしまっているのに、loopをうまく抜け出せません。。。
　
  Do Until xlBook.AtEndOfLine
　
　ではレコードが終了した場所でループを抜けることが出来ません。
　（レコードに終わりがなくずっとLOOPしてしまう）
　
　何か方法があればお教え願います。

　こちらも解決しました。
　
　お騒がせして済みません。
　
　アト、お聞きしたいことがあります。
　エクセルに罫線を引く場合
  xlSheet.Range(A1:R6).Borders.LineStyle = xlContinuous
　で出来るのですが、
  xlSheet.Range(A1:R'r').Borders.LineStyle = xlContinuous
　の様にすると罫線が引けません。（rは１からエンドレコードまでループします）
　
　解決できる方法ってありますか？

　たびたびすみません
　こちらも解決しました。
　
　ホントにお騒がせして済みませんでした。