最近、WinXP導入パソコンを買った人が「XPはよくハングアップするけど」と持ちかけられた。私は「XPは駄目ですよ。2000の方がよっぽどいいです」と答えました。
　私の使ってたCDRライティングソフトに修正モジュールを当てても使えない。スキャナーに修正モジュールを当てても使えない。これは私がXPを入れた11月20日頃書きました。さて、最近はマイクロソフトのHP作成ソフトを使うと「メモリ不足です」　アホか ! XPは相当数のアプリを同時に立ち上げてもメモリ不足にはならないんだろうが ! XPを終了しようとすると「設定を保存しています」のままハングしたり、その次の「Windowsをシャットダウンします」のメッセージのままハングしたり…電源も切れないから、リセット。そしたらたまにスキャンディスクが始まる。そして再びXPを終了させる始末。
　Win2000の時は体験版の時から使ってたけど、こんなことはなかった。よって、私は今も作業をするときはWin2000を使っている。
　XPは膨大な修正モジュールを詰め込んだサービスパックが出ないことには駄目でしょう…?

　自分のPCメーカーのサイトへ行ってみたら、いつのまにか新しいBIOSのバージョンがupされていました。早速ダウンロードし、FDに解凍。さてこのFDで起動しようとするとXPが起動してしまった。やれやれ再び終了して、今度はBIOSを呼び出しbootディスクをFDドライブに設定し、先程のFDを起動。トラブルもなく最新のBIOSに書き換えられましたが、BIOSの書き換えって何度やってもドキドキします。さてもう夜中の1時だ。もう寝よう･･･さっきまで(9時〜11時半)寝てたんですけど･･･

End Sub

　今回、以下のコードに書き換えました。
Private Sub Form_Load() '2000/2/29 OLEコントロールを使用しているためDAOアクセス
 Dim ws As Workspace
 Dim db As DAO.Database
 Dim rs As DAO.Recordset
 Dim rs1 As DAO.Recordset
 Dim rs2 As DAO.Recordset
 Dim strSQL As String
 strSQL = "SELECT 番号, 入力日,ジャンル,キーワード１, キーワード２, 掲載図書等, " _
  & "掲載図書名フリガナ, 参照ページ等, 記事, 詳細図版, パソコン分類, " _
  & "レポート印刷済み, IIf([詳細図版] Is Not Null,-1,0) AS 図版の有無, URL " _
  & "FROM T_Master ORDER BY T_Master.番号;"
 ' "Q_Master"のSQL文　2/27

 Set ws = DBEngine.Workspaces(0)
 Set db = ws.OpenDatabase(DBPath)

 Set rs = db.OpenRecordset(strSQL)
 'Q_Masterに接続
 'T_Masterだと"ジャンル"や"パソコン分類"が上手く更新できなかった
 Set rs1 = db.OpenRecordset("select ジャンル,ジャンル from T_ジャンル order by ジャンル")
 Set rs2 = db.OpenRecordset("select パソコン分類,パソコン分類 from T_パソコン分類 order by パソコン分類")

 Set T_Master.Recordset = rs
 Set Data1.Recordset = rs1
 Set Data2.Recordset = rs2

End Sub

　Windows2000の素の状態に上記コードを含むアプリをセットアップしても動作しています。私のHPにプロの方は訪れてはいただけないでしょうけど、もし見られたらお読みになってみて下さい。どっか問題点があるでしょうか ?