お世話になります。

VB4.0→VB6.0環境に変更するため、
当サイト及び以下の本を参考にしながら修正しております。

下記の個所にてエラーとなりましたが
対処方法がわかりません。

ご教授の程、よろしくお願い致します。

【環境】
OS:WindowsXP SP2
VBバージョン:VB6.0 ENTERPRISE SP6


発行：日経ＢＰ社　2000年
「３週間完全マスタ　Visual Basic6.0 データベース編」
400ページ

Data2.Refresh にて

「実行時エラー'3061':
　パラメータが少なすぎます。１を指定して下さい。」

Private Sub Data1_Reposition()
   Dim strSQL As String
   Dim strKey As String
   '
   ' グリッドにデータをロードするためのSELECTを作成する
   If Text1(0).Text = "" Then
      strKey = "0"
   Else
      strKey = Trim(Text1(0).Text)
   End If
   '
   strSQL = "SELECT ISBN,Title,YearPub FROM Titles WHERE PubID =" & strKey
   Data2.RecordSource = strSQL   '連結データ・コントロールを設定する
   Data2.Refresh                 'データ・コントロールの表示を更新する
   DBGrid1.ReBind                'グリッドの表示を更新する
            
End Sub

下記の件、ダメ元で日経ＢＰ社へメールにて問い合わせたところ
返信がありました。

フォームデザイン時の設定に２箇所の記載漏れがあり
それを修正するとうまくいきました。

�@TEXT1(0)プロパティ内、TEXTの"TEXT1"をクリアする
�ADBGrid1プロパティ内、Datasourceに"DATA1"を設定する

これにて自己解決致しました。
ソース内に問題があると思っておりましたが、フォームデザイン時でした。
お手数をお掛けいたしました。



> お世話になります。
>
> VB4.0→VB6.0環境に変更するため、
> 当サイト及び以下の本を参考にしながら修正しております。
>
> 下記の個所にてエラーとなりましたが
> 対処方法がわかりません。
>
> ご教授の程、よろしくお願い致します。
>
> 【環境】
> OS:WindowsXP SP2
> VBバージョン:VB6.0 ENTERPRISE SP6
>
>
> 発行：日経ＢＰ社　2000年
> 「３週間完全マスタ　Visual Basic6.0 データベース編」
> 400ページ
>
> Data2.Refresh にて
>
> 「実行時エラー'3061':
> 　パラメータが少なすぎます。１を指定して下さい。」