مشكلة مع الكريستال ريبورت

إخوانى ما الخطأ فى هذا الكود؟

Dim ds As New DataSet
        Dim s As String = "select customers.CompanyName,customers.country,orders.ShipAddress from customers join orders on customers.customerid=orders.customerid where customers.customerid='ALFKI'"

        Dim da As New SqlClient.SqlDataAdapter(s, SqlConnection1)

        da.Fill(ds)

        Dim myReport = New adonet_sample
        myReport.SetDataSource(ds.Tables(0))
        CrystalReportViewer1.ReportSource = myReport

كل ما اشغل البرنامج يسألنى عن بيانات الدخول للسيرفر مثل اسم السيرفر وقاعدة البيانات وهكذا وعلى الرغم من اننى قمت باعطاءة تلك البيانات من الشاشة التى ظهرت لى (رغم ان هذا غير مطلوب طبعا للمستخدم النهائى) فأعطانى رسالة خطأ قمت بإرفاقها

فما الحل؟؟