用vb.net写查找sql数据库中的表名的程序怎么写

我想用vb.net写程序，调用sql数据库中的东西。
①要获得sql数据库中的某个文件夹下的表格的名称。
②我想从datagridview直接连sql数据库，这样有什么好的方法吗？
第一个得到名字，可以选择。再从第二个进行导入

1. 获取数据库中所有表的名称：

Public Function ListTables() As IList(Of String)
    Dim tables As List(Of String) = New List(Of String)()
    Dim dt As DataTable = _connection.GetSchema("Tables")
    For Each row As DataRow In dt.Rows
        Dim tablename As String = CStr(row(2))
        tables.Add(tablename)
    Next
    Return tables
End Function

对于SQLServer数据库，其中_connection 就是 SqlConnection 对象。

2. 绑定 datagridview 到 SQLServer中的某张表：

        Dim cmdTxt As String = "SELECT * FROM 表名"
        da = New SqlDataAdapter(New SqlCommand(cmdTxt, _connection))
        Dim builder As SqlCommandBuilder = New SqlCommandBuilder(da)
        da.Fill(dt)
        Dim source As BindingSource = New BindingSource With {
                                        .DataSource = dt
                                      }
        DataGridView1.DataSource = source