Sub test()
 
        Start.ListBox1.Visible = True
 
        Try
            Start.con.Open()
            Start.cmd.CommandText = "select * from INFORMATION_SCHEMA.TABLES"
            Start.reader = Start.cmd.ExecuteReader
            Start.ListBox1.Items.Clear()
            Do While Start.reader.Read
                Start.ListBox1.Items.Add(Start.reader(db_001))
            Loop
            Start.reader.Close()
            Start.con.Close()
        Catch ex As Exception
            Start.con.Close()
            MsgBox(ex.Message)
        End Try
 
        Start.DataGridView1.Visible = False
    End Sub