コンパイルエラー ユーザ定義型は定義されていません (ID:107148)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつもお世話になっております。 ［アドイン］ → ［ビジュアルデータマネージャ］から、Microsoft Access 形式の、データベース Sale.mdb を作成し、次のコード（プログラム０１）でアクセスしたところ、正常にオープンできました。 −−−−−−−−−−−−−−−−−−−−−−−−−− Option Explicit Private cn As New ADODB.Connection Private Sub Form_Load() On Error GoTo Error_Form_Load cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _ & "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Sale.mdb" cn.Open Exit_Form_Load: MsgBox ("接続に成功しました。") Exit Sub Error_Form_Load: MsgBox (Err.Number & Chr(13) & Err.Description) End End Sub Private Sub Form_Unload(Cancel As Integer) cn.Close End Sub −−−−−−−−−−−−−−−−−−−−−−−−−− このプログラム０１を実行すると、『接続に成功しました。』というメッセージが表示されます。 ところが、次のプログラム（プログラム０２）ではうまくいきません。 −−−−−−−−−−−−−−−−−−−−−−−−−− Option Explicit Private cn As New ADODB.Connection Private rs As New ADODB.Recordset Private Sub Form_Load() On Error GoTo Error_Form_Load cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _ & "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Sale.mdb" cn.Open rs.Open "顧客名簿", cn, adOpenStatic, sdLockOpenoptimistic Text1.Text = rs!顧客ID Text2.Text = rs!顧客名 Text3.Text = rs!郵便番号 Text4.Text = rs!都道府県 Text5.Text = rs!住所 Text6.Text = rs!電話番号 Exit_Form_Load: 'MsgBox ("接続に成功しました。") Exit Sub Error_Form_Load: MsgBox (Err.Number & Chr(13) & Err.Description) End End Sub Private Sub Form_Unload(Cancel As Integer) rs.Close cn.Close End Sub −−−−−−−−−−−−−−−−−−−−−−−−−− このプログラム０２は、テーブルから取得したデータを確認するものですが、２行目の Private cn As New ADODB.Connection の行で、 −−−−−−−−−−−−−−−−−−−−−−−−−− コンパイルエラー ユーザ定義型は定義されていません。 −−−−−−−−−−−−−−−−−−−−−−−−−− というエラーが表示されます。２行目をコメントにすると、３行目の Private rs As New ADODB.Recordset で同エラーが出ます。もちろん、存在していないデータベースにアクセスしようとしても、同じ箇所でエラーになり、アクセスする前の宣言でうまくいかないようです。しかし、プログラム０１、プログラム０２とも、２行目までは同じであり、なぜ、こういう違いが生じるのか、まったく解せません。 何かおわかりになることがありましたら、お教え下さい。 どうかよろしくお願いします。