Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tablename(0) As String
        tablename(0) = "Z_STORE"
        m_Data.Database = "mingxing"
        m_Data.Password = "mingxing"
        m_Data.Username = "mingxing"
        m_Data.DataSetTable(tablename)
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Arrow
        Dim printfrom As New Form2
        printfrom.Show()
        printfrom.CRView.PrintReport()
    End Sub

这是我用来打印水晶报表的代码，但是水晶报表出了点问题，老是说连不上数据，让输入sub name , database name  , username , passwordl.这到底是为什么阿？