请帮忙!

请大虾帮忙!!
Dim   myConnection   As   New   SqlClient.SqlConnection()
                myConnection.ConnectionString   =   "Server=localhost;database=Experts;User   ID=sa;Password= "

                Dim   myCommand   As   New   SqlClient.SqlCommand()
                myCommand.Connection   =   myConnection
                myCommand.CommandText   =   "Select   *   from   Expert "
                myCommand.CommandType   =   CommandType.Text

                Dim   myDA   As   New   SqlClient.SqlDataAdapter()
                myDA.SelectCommand   =   myCommand

                Dim   myDS   As   New   DataSet1()

                myDA.Fill(myDS,   "p ")
                MessageBox.Show(myDS.Tables( "p ").Rows.Count)
                Dim   oRpt   As   New   CrystalReport1()
                oRpt.SetDataSource(myDS.Tables( "p "))
                CrystalReportViewer1.ReportSource   =   oRpt
请问   我在报表中怎么没见到我想要的数据??是不是什么地方错了,对不起   我是新手,请大虾详细讲解啊

[解决办法]
myConnection.ConnectionString = "Server=localhost;database=Experts;User ID=sa;Password= "

这一句后面加入

myConnection.Open()

试试，可以是连接没打开的原因。当然最好在

End Sub

前加上

myConnection.Close()