Explanation:

C# Code:

   protected DataTable SelectCmd()
    {
        string myConnStr = ConfigurationManager.ConnectionStrings["Personal"].ConnectionString;
        string qurey = @"SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE' AND TABLE_SCHEMA ='dbo'";
        try
        {
            using (SqlConnection connection = new SqlConnection(myConnStr))
            {
                using (SqlCommand command = new SqlCommand(qurey, connection))
                {
                    command.CommandType = CommandType.Text;
                    connection.Open();

                    SqlDataReader reader = command.ExecuteReader();                  
                    DataTable myTable = new DataTable("myTable");                   
                    myTable.Load(reader);

                       return myTable;              
                }
            }
        }
        catch (Exception exp)
        {
            msg.Text = "Error Message:" + exp.Message;
            return null;
        }          
    }
                                               

VB Code:

                                                                                                  
    Protected Function SelectTableObjectsCmd() As DataTable 
    Dim myConnStr As String = ConfigurationManager.ConnectionStrings("ConectionStringNameHere").ConnectionString 
    Dim qurey As String = "SELECT [name] FROM sysobjects WHERE [type] = 'U' AND OBJECTPROPERTY(id, 'IsUserTable') = 1" 
    Try 
        Using connection As New SqlConnection(myConnStr) 
            Using command As New SqlCommand(qurey, connection) 
                command.CommandType = CommandType.Text 
                connection.Open() 
                
                Dim reader As SqlDataReader = command.ExecuteReader() 
                Dim myTable As New DataTable("myTable") 
                myTable.Load(reader) 
                
                Return myTable 
            End Using 
        End Using 
    Catch exp As Exception 
        Response.Write("Error Message:" + exp.Message) 
        Return Nothing 
    End Try 
End Function