how to fetch all the tables depending on selected database

USE DBNAME; SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE'

Sub Main()
    Dim connectionString As String = "PUT YOUR CONNECTION STRING HERE"
    Using connection As New SqlConnection(connectionString)
        'Connect to the database then retrieve the schema information.
        connection.Open()
        Dim table As DataTable = connection.GetSchema("Tables")
        // Each row represents a single table
        // For SQL Server each row will have four columns namely table_catalog, table_schema, table_name and table_type
        For Each row As DataRow In table.Rows
            For Each col As DataColumn In table.Columns
                Console.WriteLine("{0} = {1}", col.ColumnName, row(col))
            Next
        Next
    End Using
End Sub