行 28: Myconnection = New SqlConnection("Data Source=JXGY;Initial Catalog=POS;User Id=sa;Password=;")
行 29: Mycommand = New SqlCommand("select * from 采购表")
行 30: Myconnection.Open()
行 31: Dim dr As SqlDataReader = Mycommand.ExecuteReader
行 32: ListBox1.DataSource = dr