菜鸟咨询下～～ 如何在VB里 执行SQL 语句～   
 想在VB里执行一段查询的SQL语句  要求点击一下按钮  执行出 查询结果～～ 求教大师～

就 下 问下 代码 怎么 写   的  我执行的  都报错  估计 写的 都不对  

    Dim LeafSqlConnection As SqlConnection  
    Dim LeafSqlCommand As SqlCommand
    Dim LeafSqlDataAdapter As SqlDataAdapter
    Dim LeafData As DataTable              

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
        'LeafSqlConnection = New SqlConnection("Initial Catalog=LENOVO-C4F87463 ;User ID=sa;PWD=123456")  
        LeafSqlCommand = New SqlCommand("select  * from  vw_xsdtl"）
        LeafSqlDataAdapter = New SqlDataAdapter
         = CommandType.Text
        LeafSqlDataAdapter.SelectCommand = LeafSqlCommand
        LeafData = New DataTable
        LeafSqlDataAdapter.Fill(LeafData)
        DataGridView1.DataSource = LeafData
    End Sub
End Class

测试 用的 SQL很简单   就是简单的查询一个表