Loading all the tables from the DB(sql server 2005)

Sub BindData()
Dim strConn As String
strConn = "USER=xxxx;PASSWORD=yyyyy;SERVER=zzz;DATABASE=Emp"
Dim MySQL As String = "Select Column_Name From Information_Schema.Columns Where Table_name ='TableName'"
Dim MyConn As New SqlClient.SqlConnection(strConn)
Dim ds As DataSet = New DataSet()
Dim Cmd As New SqlClient.SqlDataAdapter(MySQL, MyConn)
Cmd.Fill(ds, "Emptbl")
Dim dt As New DataTable
dt = ds.Tables(0)
DropDownList1.DataSource = dt
DropDownList1.DataTextField = dt.Columns("Column_Name").ToString
DropDownList1.DataValueField = dt.Columns("Column_Name").ToString
DropDownList1.DataBind()
End Sub