[OSのVer]：WindowsXP　SP2　　　　[VBのVer]：VB.NET2003
　おはようございます
お世話になっておりますkaraです。

VB6.0からVB.NETに変換をして
色々機能を追加をしたいと考えいやっています。
任意にデータベースを選択し、任意でデータを取り出し
印刷をしたい。
ところが、初期の段階でつまずいています。

    Friend WithEvents CrystalReportViewer1 As
CrystalDecisions.Windows.Forms.CrystalReportViewer
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As
System.EventArgs) Handles Command1.Click
        Dim mfm As Object
        On Error Resume Next
        Dim mfn As String
        Dim strSQL As String

        Dim section As _
                CrystalDecisions.CrystalReports.Engine.Section
        Dim textObject As _
                CrystalDecisions.CrystalReports.Engine.TextObject
        Dim fieldFormat As _
                CrystalDecisions.CrystalReports.Engine.FieldFormat
        Dim report As New _
                       CrystalDecisions.CrystalReports.Engine.ReportDocument
        
        cn = CreateObject("ADODB.Connection")
        
        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Sourc
e=c:\db1.mdb")
        
        
        strSQL = "SELECT テーブル1.住所, テーブル1.名前, テーブル1.役職 From テ
ー
ブル1 WHERE テーブル1.住所='東京'"
        
        rs = cn.Execute(strSQL)
        
        CrystalReportViewer1.ReportSource = rs

        Dim form1 As New Form1
        form1.Show()
    
End Sub

crystalreportビユーアを使用しているのですが
データが表示されません。
なにが間違っているのか分かりません
ご指示ください。
よろしくお願いいたします。



　

On Error Resume... CreateObject... ADODB.Connection...

まずは、.NET Framework に特化したソースに置き換えた方が良いでしょう。

# 不具合が特定できない段階であれば、On Error Resume Next など使わないようにしましょう。

ありがとうございます
karaです。

On Error Resume Nextをはずしたところ
下記のメッセージがでました

追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。

どういうことか色々調べてやってみます。

お世話になっております
Karaです。

上記の質問部分につきまして色々やりましたが、うまく行かないので下記でやってみました。
ＦＯＲＭロードにパラメーターを追加してやってみました。

        Dim paramFields As New _
                CrystalDecisions.Shared.ParameterFields
        Dim paramField As New _
                CrystalDecisions.Shared.ParameterField
        Dim discreteVal As New _
                CrystalDecisions.Shared.ParameterDiscreteValue

        
        paramField.ParameterFieldName = "Customer"
        TextBox1.Text = InputBox("例→東京と入力")
        
        discreteVal.Value = TextBox1.Text
        paramField.CurrentValues.Add(discreteVal)
        paramFields.Add(paramField)

      
        CrystalReportViewer1.ParameterFieldInfo = paramFields

    

        CrystalReportViewer1.ReportSource = "C:\Documents and Settings\kara\デスクトップ
\VB開
発\reportsample.NET\CrystalReport1.rpt"

イメージと違いますがうまく行きました。
このようなやり方しかないのでしょうか？
ご指示ください。

おはようございます
お世話になっています
Karaです。
じゃんぬねっとさん申し訳ございません
もう一度質問の方向を基に戻し、再度確認しております。
悩み、よく確認してまた書き込みいたします。
どうかよろしくお願いいたします。

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
おはようございます
karaです。

色々やりましたが、今ひとつ SQLが正常にはたらいて
いない。。。。。

section = report.ReportDefinition.Sections.Item("Section2")
      
        textObject = section.ReportObjects("Text1")
        textObject2 = section.ReportObjects("Text2")
      
        textObject.Text = "SELECT テーブル1.住所"
        textObject2.Text = "テーブル1.役職"
      
        CrystalReportViewer1.ReportSource = report
どうやれば、よいのでしょうか？
ご指示ください。